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BOEKEN voor MSX COMPUTERS : 

★WERKEN MET BESTANDEN IN MSX BASIC . f 45,— 

PROGRAMMEERCURSUS MSX BASIC - ook voor MSX-2 . f 45,— 


ADVENTURES! VOOR DE MSX COMPUTER! . f 24,95 

★MSX PROGRAMMA MIX . f 29,— 


GRAFIEK EN GELUID VOOR DE MSX COMPUTERS 

MSX MACHINETAALBOEK . 

BASICODE-3 + cassette voor MSX en MSX-2 

MSX DOS met Disk BASIC . 

LEREN OMGAAN MET MSX COMPUTERS . 


49,- 

49,- 

27.50 

32.50 
24,90 


in BELGIE : het Computerwinkeltje pvba, M Sabbestr 39, 
B-2800 MECHELEN - tel 015/206645 

BOEKEN voor MSX COMPUTERS : 

★MSX en MSX-2 MOGELIJKHEDEN . f 29,50 

★HET MSX INSTRUCTIEBOEK . f 39,50 

★PROFESSIONELE SOFTWARE VOOR DE MSX COMPUTER .. f 50,— 

★MSX LISTINGBOEK . f 17,95 

★MSX BASIC VOOR KINDEREN deel 1 . f 19,50 

TERMINAL GRAPHICS ONTWERPBOEK MSX (layout blok)f 12,50 

FINANCIËLE PROGRAMMA'S VOOR MSX COMPUTERS _ f 25,— 

HET MSX SOFTWARE BOEK . f 27,50 

★MSX ROM / BIOS HANDBOEK . f 55,— 

300 pagina's informatie v gevorderden. 

WERKEN MET DE MSX COMPUTER, praktijkprogr. ... f 25,~ 

DE MSX GEBRUIKERSGIDS . f 39,50 


★HANDBOEK MSX (Sato) . 

MSX BASIC - LEREN PROGRAMMEREN . 

★MICROSOFT BASIC - GW BASIC, MSX BASIC, MBASIC 


MSX BASIC leerboek deel 1 
MSX BASIC leerboek deel 2 
★MSX DOS leerboek deel 3 
★MSX TRUUKS EN TIPS deel 5 
★MSX TRUUKS EN TIPS deel 6 


MSX COMPUTERS EN PRINTERS aansluiten, gebruik 
MSX BASIC HANDBOEK uw MSX computer de baas ... 

MSX DOS handboek voor iedereen . 

MSX DISK handboek voor iedereen . 

MSX QUICK DISK handboek voor iedereen . 


f 79,50 
f 24,50 
f 69,— 

f 24,50 
f 24,50 
f 24,50 
f 25,- 
f 25,- 

f 27,50 
f 49,50 
f 26,50 
f 29,50 
f 23,50 


ENGELSE en DUITSE boeken voor MSX : 

INTRODUCING MSX ASSEMBLY LANGUAGE & MACH CODE 

THE MSX GAMES BOOK (Gregory) . 

HOW TO PROGRAM YOUR MSX COMPUTER PROFESSIONAL 

BEHIND THE SCREENS OF THE MSX . 

IDEAS FOR MSX . 

THE MSX RED BOOK - ROM, BIOS, Memory Map . 

STARTING MACHINE CODE ON THE MSX . 

USEFUL UTILITIES FOR YOUR MSX . 

COMPLETE MSX PROGRAMMERS GUIDE . 

MSX EXPOSED . 

MSX GAMES BOOK (Lacey) . 

PRACTICAL MSX MACHINE CODE PROGRAMMING . 

PROGRAMMER'S GUIDE TO THE MSX SYSTEM . 

★MSX BIOS . 

GAMES FOR YOUR MSX . 


f 17,50 


★MSX MACHINETAAL HANDBOEK . f 34,50 

★MSX VERDER UITGEDIEPT peeks, pokes etc . f 23,90 

BOEKEN voor MSX-2 : 

★MSX-2 BASIC HANDBOEK . f 56,50 

★MSX-2 UITBREIDINGSHANDBOEK DISk/DOS . f 37,50 

—N *MSX-2 TOEPASSINGSHANDBOEK Utilities (ook MSX1) f 29,75 


★MSX FLOPPYBUCH (Data Becker) . f 69,— 

★DAS MSX-BUCH MIT MSX-2 (SYBEX) . f 69,— 

TOEBEHOREN : 

★CAT TRACKBALL voor Eddy II en MUE . f250,— 

ARCADE TURBO JOYSTICK (MSX compatible) . f 89,— 

NASHUA diskettes 3.5 inch ss per 10 stuks _ f 59,— 


ACTUELE EN NIEUW BINNENGEKOMEN MSX SOFTWARE (t=tape/d=disk/c=cartridge) 


TASWORD MSX engels tape/disk t 65,— 

MSX HUISHOUDBOEKJE. t 24,50 

MT-DISPLAY lichtkrant . c 199,— 

PSG musiwriter cartridge _ c 120,— 

BASIC CURSUS MSX . t 29,50 

MSX MUZIEK-NOTEN-CURSUS _ t 19,50 

TYPE CURSUS MSX . t 19,50 

STAR SEEKER . t 45,— 

★ SLAGEN VOOR HET RIJEXAMEN .. t 59,— 


6 COMPUTER HITS . t 

★JACK THE NIPPER . t 

★ICE KING . t 

★BOUNDER . t 

★MACADAM BUMPER pinball constr. t 

★VALKYR . t 

HYPERRALLEY cartridge . c 

★CASTLE BLACKSTAR . t 

★INTERNATIONAL KARATE . t 


LETTER SET MSX maak letters t 

MSX SOUND MAKER . t 

MSX ZOOM/SPRITE EDITOR . t 

★MUE Music Editor cartridge . c 
KUMA SPREADSHEET (disk: 159) t 
EDDY II tekenprogramma . c 


-nieuw!- 

★MSX CALC cartridge . 195,— 

nederlandstaLig spreadsheet. 

★MSX TEXT cartridge . 195,— 

tekstverwerker + database. 

Beide programmaas voor MSX-1 en MSX-2 
met nederlandstalige handleiding 
en met opslag op cassette of disk. 


II m 1 J LLl 1 1 I I I II TTTT1 I I I I 


19,50 LE MANS autorace . 

19,50 *ATTACK OF THE KILLER TOMATOES 

19,50 *KNIGHT TYME . 

95,— ^MOLECULE MAN . 

135,— ★TURMOIL . 

76,— *J0URNEY TO THE CENTRE OF EARTH 

★SCRABBLE MSX . 

ROAD FIGHTER cartridge . c 

ROLLERBALL cartridge . c 

★MONOPOLY MSX . t 

SPACEWALK+FINDERS KEEP+CHILLER t 

ZOIDS . t 

★KNIGHTMARE (Konami) . c 

★KONAMI BILLIARD . c 

NIGHTSHADE . t 

- *CLUEDO MSX . t 

TT I I I I l~TT 


35 
39 
32 
39 
39 
39 
69 

36 
39 

45 

39 

15 

12 

15 

15 

45 

69 

64 

45 

30 

39 

69 

69 

45 

45 


programmeertalen : 

HISOFT PASCAL COMPILER tape... t 
HISOFT DEVPAC tape. t 


★HISOFT C++ disk 3.5 M . 

★HISOFT PASCAL disk 3.5". 

★HISOFT DEVPAC disk 3.5". 

★MSX ZEN assembler DISK 3.5". 

MSX LOGO . 

MSX KUMA FORTH . 


135 

89 

185 

185 

185 

185 

95 

185 


X 


J-l I I I I I I II I I 1 I I.. 1 I I 1 l'l I I I 1 1 ITTT 


MT-DEBUG cartridge . c 149 

737 FLIGHT SIMULATOR . t 49 

★DUNKSHOT basketball cartridge . c 79 
★GROG' S REVENGE . t 45 

WAY OF THE TIGER MSX . t 39 

FORMULA 1 SIMULATOR . t 10 

★ SPEED KING motor race. t 12 

★MSXTRA 4 games . t 45 

oa 3D Knockout, Blagger,Superbowl 

SAMANTHA FOX STRIP POKER . t 39 

KONAMI SOCCER . t 69 

software speciaal voor MSX-2 : 

★RED LIGHTS OF AMSTERDAM .. d 80/t 70 
★THE CHESS GAME MSX-2. d 90/t 70 


winkel open van woensdag t/m zaterdag tussen 11.00 t/m 17.00 (maandag/dinsdag 
verzendkosten f 6 per bestelling — vraag onze ni 
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gesloten) - alle prijzen inclusief BTW 
euwe ZOMER 1986 CATALOGUS aan. 


microcomputer tijdschriften boeken en software 
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f 45,- 
f 36,— 
36,- 
45,- 
36,- 
45,- 
39,- 
17,50 
69,- 
39,- 
36,— 
27,— 
39,— 
99,- 
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VOORWOORD 


Zo, daar Ligt nummer 7 dan weer en zover ik het op dit moment 
kan bekijken weer keurig op tijd. Dat hebben we dan netjes een 
jaar Lang voor eLkaar gekregen. 

Zo n extra editie tussendoor vieL nog behoorLijk tegen; voLgende 
keer maken we er waarschijnLijk een extra dik nummer van. 


We hebben een jaar Lang met aLLerLei papiersoorten zitten 
knoeien; van kLosetpapier tot het huidige MC. Dit papier bLijkt 
uiteindeLijk toch het mooiste en -wat natuurLijk ook erg 
beLangrijk is - het voordeLigste te zijn. We zijn het zoeken naar 
papier en andere drukkers een beetje beu en bLijven voorLopig 
maar een jaartje op dit papier werken. De aLgeheLe kwaLiteit is 
zo toch weL het beste. Ook de foto's kunnen met een fijner 
raster verwerkt worden. Voor de rest bLijft aLLes bij het oude; 

voor zover de enquete geen ingrijpende wijzigingen noodzakeLijk 
maakt . 


Dan maar weer wat Laatste opmerkingen en aanvuLLingen: 

De POKE voor de PhiLips MSX-2 (Gids nr. 6 pag. 53) kan ook aLs 
voLgt worden opgegeven: POKE -1,170. Dit werkt wat makkeLijker 
dan de &H F F F F,&HAA. 

Bij het programma 'fakturering' staat in de kop: aLLeen voor 
cassette. Dit moet zijn: aLLeen voor DISKETTE. Wie dit programma 
op cassette wiL gebruiken zaL aLLe opdrachten met A: moeten 
vervangen door CAS:. Dit zaL inmiddeLs weL bij bijna iedereen 
bekend zijn. 

Na het intikken van deze pagina (die aLtijd aLs Laatste wordt 
gemaakt) gaat hier de beuk erin. ALLes wordt verbouwd, er komen 
nieuwe computers en printers en aLLe diskettes moeten over gezet 
worden. Een fLinke klus, waarbij ook de teLefoon bij de redaktie 
en de uitgeverij tijdeLijk afgesLoten zijn. Dat was dus de reden 
dat we enige tijd geLeden geheeL niet bereikbaar waren. Dat zaL 
aL met aL weL een week geduurd hebben want ik weet nu aL dat ik 
na deze rommeL een of twee daagjes er tussenuit ga; even op adem 
komen om weer met nummer 8 te beginnen. 


Dan nog even een berichtje aan Peter: 

Bedankt voor de diskette. Knap werk! Kunnen deze mensen niet 
eens wat voor de MSX Gids schrijven. VrijweL aL onze Lezers 
zouden b.v. best geLukkig zijn met een programma (of artikeL) om 
cassette programma's naar diskette over te zetten. Ook zuLLen de 
makers van deze diskette vast weL wat Leuke POKEjes en adressen 
weten waar we onze Lezers een pLezier mee kunnen doen. Zo niet, 
dan kan ik ze weL gebruiken. 

Dat was het dan weer, tot ziens in nummer 8. 

ALfred DebeLs. 
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LEZERSONDERZOEK 


Welk merk en type MSX computer heeft u? 


Waarvoor gebruikt u de MSX computer voor¬ 
namelijk? 

OSpelletjes OProgrammeren 

OZakelijk OMuziek 

OGrafische toepassingen 

Anders zoals . 


Koopt u cassettes/diskettes met de 
programma's van de MSX Gids? 

OJa OSoms ONee 

Hoe vindt u de artikelen in de MSX Gids? 
OTe moeilijk OGoed OTe eenvoudig 

Wat vond u in 1986 het beste artikel? 

Wat vond u in 1986 het slechtste artikel? 


Voor welke programmeertalen heeft u de 
meeste belangstelling? 


2 . 

3 . 

Welke randapparatuur 
gebruikt u? 

en/of uitbreidingen 

OCass. recorder 

05.25 diskdrive 

03.5 diskdrive 

OQuickdisk 

OMSX printer 

OAndere printer 

OT.V. 

OMoni tor 

Andere:. 



Welke randapparaten en/of uitbreidingen 
bent u nog van plan aan te schaffen? 


Wat vindt u van de listings in de MSX Gids 
OTe veel O Genoeg OTe weinig 

Gemiddelde kwaliteit: 

OGoed ORedelijk OSlecht 

Gebruikt u het 1istingcontrole programma? 
OJa OSoms ONee 


Wat wilt u verder nog graag in de MSX Gids 
lezen? 


Wat wilt u liever niet (meer) in de MSX 
Gids lezen? 


Wat vindt u van de software beschrijvingen 
OTe veel O Genoeg OTe weinig 


Tot slot nog wat persoonlijke gegevens 
voor de enquete: 

O Man O Vrouw 

Leeftijd: O Jonger dan 20 jaar 

O 20 - 30 jaar 
0 30 - 40 jaar 
0 40 - 50 jaar 
0 50 jaar of ouder 


Evt. verdere op- of aanmerkingen: 


Doe mee en vul de vragen in. Stuur deze 
lijst (of een kopie) voor 1 december op 
naar: 

MSX GIDS, POSTBUS 10252, 1001 EG Amsterdam 
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KAARTENBAK 


Laat ik beginnen met te vertellen dat dit 
programma alleen geschikt is voor 
diskdrives en dat deze kaartenbak apart op 
een lege diskette gezet moet worden omdat 
vrijwel een gehele diskette begruikt 
wordt. Zo, nu hoop ik wat minder 
telefoontjes te krijgen van mensen die dit 
programma niet aan de praat weten te 
krijgen door allerlei disk-foutmeldingen. 

Deze kaartenbak kan 1600 records bevatten. 
Elk record bestaat uit 7 regels voor Naam, 
Adres enz. plus nog 5 extra regels voor 
eigen gebruik. Op elk van de 7 vaste 
velden kan, voordat een lijst wordt 
geprint, worden gesorteerd. Ook kan een 
selectie op elk van deze velden uitgevoerd 
worden. Het selecteren gebeurt met de 
INSTR$-functie zodat ook een gedeelte van 
een gegeven ingevoerd kan worden. Wil je 
b.v. Jansen opzoeken, maar je weet niet of 
deze naam met 1 of met 2 s~en wordt 
geschreven dan kan je gewoon Jans opgeven 
en alle namen met Jans ( b.v. Jansens, 
Janssen, Jansen) worden geselecteerd. 
Uiteraard zal het opzoeken normaliter via 
de lijst gebeuren daar het zoeken via de 
disk nogal tijdrovend is en, na het 
vinden, het recordnummer onthouden moeten 
worden wanneer b.v. een wijziging moet 
plaatsvinden. Maar de routine zit er in 
en gebruikers zonder printer kunnen nu 
toch met deze kaartenbak werken. Verder 
zit er een nieuwe editor ingebouwd zodat 
op een regel nu ook de INS-toets, de 
DEL-toets en de cursortoetsen (naar links 
en naar rechts) gebruikt kunnen worden. 
Het wijzigen van gegevens wordt nu -in 
tegenstelling tot eerdere programma's die 
alleen de BS-toets gebruikten- aanmerke¬ 
lijk vereenvoudigd. Bij 'invoeren / wijzi¬ 
gen' kan, voor nieuwe invoer, een '0' of 
'RETURN' worden opgegeven zodat de 
computer zelf het eerstvolgende (nieuwe) 
record selecteert. Bij wijziging dient wel 
een recordnummer opgegeven te worden. Dit 
dient uit een lijst te worden gehaald of 
(de omslachtige methode) opgezocht te 
worden met de 'kaart selecteren' optie. 
Wanneer bij wijzigen een regel moet worden 
overgeslagen omdat deze ongewijzigd blijft 
dan kan dit met de RETURN (ENTER) toets. 
Met de ESC-toets kan altijd weer 
teruggegaan worden naar het menu. 

Op de uitdraai staan alle kolommen onder 
elkaar. Dit geeft een tamelijk lange lijst 
die ingekort kan worden door b.v. enkele 
rubrieken naast elkaar te zetten. Om dit 
te vereenvoudigen zijn de printrubrieken 
allen onder elkaar gezet (regels 2960 t/m 
3080) en niet met een lus opgebouwd. 
Hierdoor wordt het wijzigen van de afdruk 
vereenvoudigd. Iedereen kan zelf beslissen 
hoe de lijst eruit moet komen te zien. 

Succes met deze kaartenbak. 

Alfred. 



ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm; WIDTH 36 


10 COLOR 1,10,15 5 SCREEN0 5 KEYOFF: WIDT 
H40 

20 CLEAR 10000:MAXFILES=1 

30 DEFINT A-Z:DEFSNG B 

40 DEFUSR0=&H156 

50 ON STOP GOSUB 2930:STOP ON 

60 ON ERROR GOTO 2760 

70 3 

80 * MENU 
90 CLOSE 
100 GOSUB2280 
110 LOCATE0,8 

120 PRINT 11 ï = KAART INVOEREN / WIJZ 
IGEN" 

130 PRINT:PRINT" 2 = KAART SELECTERE 
N" 

140 PRINT:PRINT” 3 = KAARTEN PRINTEN 
150 PRINT:PRINT" 4 = EINDE PROGRAMMA 

11 

160 LGCATE0,22:PRINT”WELK NUMMER?: " 

. 

170 GOSUB2180:X=VAL<X*) 

180 IFX<1ORX>4THEN160 
190 ON X GOTO 580,880,1380,1840 
200 GOTO90 
210 ' 

220 'SORTEREN 
230 M=N 

240 M=INT(M/2):IFM=0THEN330 
250 J=1 :K=N-M 
260 H=J 
270 V=H+M 

280 IF 0$(H)<=0*(V)THEN310 
290 SWAPO*(H),0*<V):H=H-M 
300 IF H=>1THÊN270 
310 J=J + 1 

320 IF J >KTHEN240ELSE260 
330 RETURN 
340 ' 

350 'BESTAND VOL 

360 CLB:FORI=1TO40:BEEP:PRINT"BESTAN 
D VOL!":NEXT:GOTO90 
370 ’ r 

380 'RECORD INLEZEN 
390 GET#1,N 

400 F0RI=1T07:X*(I)=N*(I):NEXT 
410 GET#1,N+l y 

420 F0RI = 1T05:Y* <I)=M*(I):NEXT 
430 RETURN 
440 STOP 
450 ' 

460 ' RECORD WEGSCHRIJVEN 

470 F0RI=1T07:LSETN*(I)=X*(I):NEXT:P 

UT#1,N 
























480 F0RI=1T05:LSETM$(I)=Y$(I):NEXT:P 
UT#1,N+l 

490 RSET REC$=STR$(REC):PUT#1,1603 
500 RETURN 
510 ’ 

520 'GEEN RECORD IN BESTAND 

530 FORI=1TO20:LOCATE0,22:BEEP:BEEP 

540 PRINT"GEEN RECORD IN HET BESTAND 

i i » 

550 NEXT:GOTO90 
560 ’ 

570 'KAART INVOEREN / WIJZIGEN 
580 GOSUB 2830:GOSUB 2280 
590 GOSUB 2370:GOSUB 2450 
600 F0RI = 1T08: X$(I)="":NEXT 
610 NR=30:Q=1:L0CATE8,7:X$=" " : XX 

=8 

620 GOSUB 1890:X=VAL(X$) 

630 IF X=0 THEN Q=0:N=REC+15 GOTO 690 
640 IF X>REC OR X<1 THEN 590 
650 B=X/2:B=B-INT(B):IF B=0 THEN 590 
660 N=X:GOSUB 390 

670 F0RI=1T07:L0CATE8,1+7:PRINTX*(I) 

;:NEXT 

680 F0RI=1T05:LOCATE 0,1+15:PRINTY*( 
I);:NEXT 

690 LOCATEB,7 :PRINTN:IFN >1600THEN36 
0 

700 F0RI=1T07:LOCATEB,1+7:XX=B:NR=30 
710 X*=X$(I):IF X$=""THEN X$=SPACE$( 
30) 

720 GOSUB 1890 

730 IFX$< >""THEN X$(I)=X$ 

740 NEXT 

750 F0RI=1T05: XX=0: X*=Y*>(I):IF X$="" 
THENX$=SPACE*(39) 

760 LOCATE 0,1+15:NR=39:GOSUB 1890 
770 IFX$< >""THEN Y$(I)=X$ 

780 NEXT 

790 LOCATE0,22:PRINT"AKKOORD? J/N:"1 

800 GOSUB 2180 

810 IFX$="N"ORX$="n"THEN590 

820 IF X$< >"J"ANDX$< >"j"THEN790 

830 IFQ=0THEN REC=REC+2 

840 GOSUB 470 

850 GOTO590 

860 •' 

^ 870 »KAART SELECTEREN 
880 GOSUB 2830 
890 IF REC=0 THEN 530 
900 GOSUB2280:GOSUB2570:GOSUB2450 
910 X$=" 

920 F0RI=1T08:X$(I)="":NEXT 
930 XX=8:NR=30:LOCATEB,7 
940 GOSUB 1890:X=VAL(Xè) 

950 IF X=0 THEN 1040 

960 IF X>REC OR X<0 THEN 900 

970 B=X/2:B=B~INT(B):IF B=0 THEN 900 

980 N=XsGOSUB 390 

990 F0RI=1T07:LOCATEB,1+7:PRINTX*(I) 

! NEXT 

1000 F0RI=1T05:LOCATE0,ï+15:PRINTY*< 

I);:NEXT 

1010 LOCATE 0,22:PRINT"DRUK EEN TOET 
S" • 

1020 GOSUB 21B0:GOTO 900 
1030 ’ 

1040 X$=SPACE$(30):F0RI=1T07:L0CATE8 
,1+7 

1050 NR=30:XX=8 
1060 GOSUB 1890 

1070 IFX$< >""AND X$< >SPACE$(30)THEN 
NR*=X$:Q=I:GOTOl130 
1080 NEXT 

1090 XX=0:X$=SPACE*(39):NR=39:FORI=l 
T05:LOCATE 0,1+15:GOSUB 1890 
1100 IFX$< >""AND X$< >SPACE$(39)THEN 
NR*=X$:Q=I:GOTO!130 


1110 NEXT 
1120 GOTO 900 

1130 H=LEN(NR$):LOCATE 0,22:PRINT"IK 
ZOEK..." 

1140 FOR I=HT01STEP—1: IF MID*(NR*,I., 
1)0" "THEN 1160 
1150 NEXT 

1160 NR$=LEFT$(NR$,I) 

1170 FOR 1=1 TO LEN(NR*>:H=ASC(MID$( 
NR$,1,1)) 

1180 IF H>96 AND H<123 THEN H=H-32:M 
ID$(NR$,1,1)=CHR$(H) 

1190 NEXT' 

1200 FOR N=1 TO REC STEP 2 
1210 GOSUB 390 
1220 XX$=X*» (Q) 

1230 FOR 1=1 TO LEN(XX*):H=ASC(MID$( 
XX$,1,1)) 

1240 ÏF H>96 AND H<123 THEN H=H-32:M 
ID$(XX$,I,1)=CHR$(H) 

1250 NEXT 

1260 IF INSTR(1,XX$,NR$)=0 THEN1340 
1270 LOCATE 8,7:PRINT N;" <<<<<<<<< 

«" 

1280 FOR I=1T07:LOCATEB,1+7:PRINTX$( 
I):NEXT 

1290 FORI=lT05:LOCATE0,I+15:PRINT Y$ 
(I):NEXT 

1300 LOCATE 0,22:PRINT"AKKOORD? J/N: 

• 

1310 GOSUB 2180 

1320 IF X$="N"0RX4>="n"THEN 1340 
1330 IF X$="J"ORX*="j-THEN 900 
1340 NEXT N 
1350 GOTO 900 
1360 ’ 

1370 ’SORTEREN / PRINTEN 

1380 GOSUB 2830:GOSUB 2280:GOSUB2690 

1390 IF REC=0 THEN 530 

1400 LOCATE 0,10:PRINT"ZET DE PRINTE 

R KLAAR" 

1410 PRINT:PRINT"EN DRUK EEN TOETS.. 
";:GOSUB 2180 
1420 GOSUB 2450 

1430 LOCATE 0,16:PRINT SPC<200) 

1440 FOR 1=1 tO 7:LOCATE 8,I+7:PRINT 
" =";I;SPC(26):NEXT 

1450 LOCATE 0,18:PRINT"Geef het NUMM 
ER van de sDrteerrubriek" 

1460 PRINT: PRINT"o-f 0 voor NIET sort 
eren." 

1470 LOCATE 0,22:PRINT"WELK NUMMER?: 

» . 

1480 GOSUB 2180:X=VAL(X$) 

1490 IF X<0 OR X>7 THEN 1480 

1500 IF X>0 THEN 1570 

1510 FOR N =1 TO REC STEP2 

1520 GOSUB 390 

1530 GOSUB 2960 

1540 NEXT 

1550 FOR 1=1 TO 5:LPRINT:NEXT 
1560 GOTO 90 

1570 GOSUB 22B0:GOSUB 2630 
1580 LOCATE0,16:PRINT"HET INLEZEN EN 
SORTEREN KAN BEHOORLIJK" 

1590 PRINT:PRINT"WAT TIJD IN BESLAG 
NEMEN" 

1600 PRINT:PRINT"EVEN GEDULD A.U.B.. 

II 

1610*N=REC/2+l 

1620 NR=FRE("">:DIM 0$(N):NR=X 
1630 FOR N=1 TO REC STEP 2 
1640 GET#1,N:X$=N$(NR):J=N/2+.5 
1650 0$(J)=LEFT$(X$,7)+RIGHT*(" "+ 

STR*(N),3) 

1660 FOR K=1 TO 7:H=ASC(MID$(0$(J),K 
, 1) ) 
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1670 IF H>96 AND H<123 THEN H=H-32:M 
ID*(0*(J) , K,1)=CHR*(H) 

1680 NEXT' 

LOC ATE0 , 22:PRINT"REC.:";N 
NEXT 
N=REC/2 
GOBUB 230 

NR=N:FOR J = 1 TO NR 
N=VAL(RIGHT*(O* <J),3)) 

IF N=0 THEN 1780 
GOSUB 390 
GOBUB 2960 
NEXT 

FOR 1=1 TO 5:LPRINT:NEXT 
ERASE 0$ 

GOTO 90 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
back 


IF 


IF 

IF 


1860 
1870 
1880 
1890 
1900 
1910 
1920 
EN2000 
1930 IF 
1940 
1950 
TURN 
1960 
1970 
1980 
1990 
2000 
2010 
=P+1 
2020 
2030 
2040 
2050 
2060 


'EINDE 

STOP OFF:CLS:COLOR15,4,4 
PRINT:PRINT"Maak regelmatig 
up kopie":PRINT:PRINT 


een 


BEEF': PR I NT " EINDE." : BEEP: END 

’ INVOERROUTINES 
X=USR(0):LOCATE,,1:P=1 
W*=INKEY*:IF W*=""THEN 1900 
IF W*=CHR*(27)THEN RETURN 90 

W* >CHR$(31)ANDW$< CHR*(123)TH 


W$=CHR$(28)THEN2020 
W*=CHR*(29)THEN 2040 
W*=CHR*(13)THEN LOCATE, 


0: RE 


IF 

IF 

IF 


W*=CHR$(127)THEN 2060 
W*=CHR*(8)THEN 2140 
W*=CHR*(1B) THEN 2080 
GOTO1900 

IF P>NR THEN BEEPsGOTO 1900 
LOCATE P+XX-1:MID*(X*,P,1)=W*:P 
PRINT W$;:GOTO1900 
IF P>=NR THEN BEEP:GOTO 1900 
P=P+1:LOCATE P+XX-1:GOTO1900 
IF P<2 THEN BEEP:GOTO1900 
P=P-1:LOCATE P+XX-1:GOTO1900 
X*=LEFT$(X$,P-1)+MID$(X$,P+1)+" 
XX:PRINT X*;:LOCATE P+XX-1 


"THEN BEEP:G 


":LOCATE 
:GOTO1900 
2070 ’ 

2080 IF RIGHT$<X$,1)<> 

OTO1900 

2090 W$=INKEY$:IF W$=""THEN2090 
2100 IF W*<CHR$(32)0RW$>CHR*(122)THE 
NI 90# 

2110 X*=LEFT*(X*,P-1)+W*+MID*<X*,P): 
X*=LEFT*(X*,NR):P=P+1 

2120 LOCATE XX:PRINT X*;:LOCATE P+XX 
-1 

2130 
2140 
2150 


GOTO 2080 
IF P=1 THEN 
X*=LEFT*(X$, 


2060 

i P— 2) +MI D*(X$ , P )+" 
":LOCATE XX:PRINt X*; :P=P—1:LOCATE P 
+XX-1:GOTO1900 
2160 ? 

2170 ’ 

2180 
2190 

2200 IF TIME=25 THEN LOCATE, 

2210 IF TIME>30 THEN LOCATE, 

0 

2220 IF X$="» THEN 2190 
2230 REM IF X*=CHR*(13)THEN 2190 
2240 IFX*=CHR*(27)THEN RETURN 90 
2250 LOCATE,,0:RETURN 
2260 •' 

2270 
2280 


X=USR0 (0) 
X$=INKEY$ 
IF TIME=25 
IF TIME>30 


0? 

1?TIME= 


CLS:LOCATE0,0,0 


KAARTENBAK 2.1 
(c>1986 MSXgicte 


INVOEREN 

WIJZIGEN 


ESC = MENU 

NR. 0 = NIEUWE INVOER 


RECNR. 

NAAM 
T. A.V. 

ACRES 

WOONP. 

LAND 

TEL- 

DIU- 


±9 

MSX GIDS. 


POSTBUS ±0252- 


±80± EG AMSTERDAM- 

NED_ 

020-3274G4_ 


_# 

_# 

_# 

_ # 

_ # 

_# 

_ # 


DEMO GIDS NR- ?_ 


_ # 

_# 

_ # 

_ # 

_ # 


AKKOORD? J/N: 


2290 

PRINT" 

r 


2300 

PRINT" 

|KAARTENBAK 

2. 1 , 

2310 

PRINT" 

I(c)1986 MSXgidsl 

= MENU 

1 ”» 


2320 

PRINT" 

i 1 



] NR. 0 

= NIEUWE INVOER! 

2330 

'PRINT" 



_i " 




2340 

RETURN 



2350 

ï 1 



2360 

!* 



2370 

LOCATE 

0,3 


2380 

PRINT" 


II 

2390 

PRINT" 

INVOEREN 

II 

2400 

PRINT" 

WIJZIGEN 

II 

2410 

PRINT” 


II 

2420 

RETURN 



2430 

,1 



2440 

,1 



2450 

LOCATE 

0,7 


2460 

PRINT"RECNR.: 

II 

2470 

PRINT" 

NAAM: ..., 




#" 


2480 

PRINT”" 

r. A. V. : . . . , 

V « ■ ■ 



#" 


2490 

PRINT" 

ADRES. 




#" 


2500 

PRINT"WOONP.: _ 




#" 


2510 

PRINT" 

LAND: _ 




#" 


2520 

PRINT" 

TEL.: _ 




#" 


2530 

PRINT" 

DIV.: _ 




#" 


2540 

F0RI=1TD5:LOCATE0,1+15: 

RING*<39,95) 

' ;"#"ü:NEXT 


2550 

RETURN 



2560 




2570 

LOCATE 

0,3 


2580 

PRINT" 


II 

2590 

PRINT" 

SELECTEREN 

1» 

2600 

PRINT" 


II 

2610 

RETURN 



2620 

•ft 



2630 

LOCATE 

0,3 


2640 

PRINT" 


II 

2650 

PRINT" 

SORTEREN 

II 

2660 

PRINT" 


II 

2670 

RETURN 



2680 




2690 

LOCATE 

0,3 


2700 

PRINT" 


II 

2710 

PRINT" 

PRINTEN 

II 

2720 

PRINT" 


II 

2730 

RETURN 
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2740 ’ 

2750 'OPENEN KAARTENBAK 
2760 X=ERR;IF X<>55 AND X<>59 THEN P 
RINT"ERROR "sERR;" LI NE ";ERLsSTOP 
2770 FIELD#1,5ASREC* 

2780 RSET REC*="0" 

2790 PUT#1,1603:CLOSE 
2800 RESUMÉ NEXT 
2810 * 

2820 * FILE VOOR KAARTEN 

2830 GOSUB 2280:LOCATE0,22:PRINT"EVE 

N GEDULD A.U.B." 

2840 OPEN"A:KAARTEN"AS#1 LEN=210 
2850 FI EL,D# 1,30ASN*T 1) , 30ASN* (2) , 30A 
SN$ C3),30ASN*(4),30ASN*(£tT30ASN*(6) 
,30ASN*<7> 

2860 FIELD#1,39ASM*(1),39ASM*< 2) ,39A 
SM* (3) , 39ASM* (4) , 39ASM* (5) 

2870 FIELD#1,5AS'REC* 

2880 GET#1,1603 

2890 REC=VAL(REC*):N=VAL(REC*) 

2895 ON ERROR GOTO 
2900 RETURN 
2910 ’ 

2920 •' STOPROUTI NE 

2930 FOR I=1TO30:PLAY"V15L64T3204C05 

B":NEXT 

2940 RETURN 

2950 ? PRINTRDUTINE 

2960 LPRINT USING"###";N; 

2970 LPRINT " ";X*(1) 

2980 LPRINT SPC(4);X*(2) 

2990 LPRINT SPC(4);X*(3) 

3000 LPRINT SPC(4):X*(4) 

3010 LPRINT SF'C (4) ; X* (5) 

3020 LPRINT SPC(4)■X*(6) 

3030 LPRINT SPC(4)ï X*(7) 

3040 LPRINT SPC < 4)■Y*(1) 

3050 LPRINT SPC(4) ;Y*(2) 

3060 LPRINT SPC(4)■Y*<3> 

3070 LPRINT SPC(4) ;Y* <4) 

3080 LPRINT SPC(4) ;Y*(5) 

3090 LPRINT:LPRINT■ 

3100 RETURN 


CONTRBLETELLIHG 


Rege 

Rege 

Rege 

Rege 

Regel 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


10 - 144 
20 - 196 
30 - 162 
40 - 215 
50 - 2B 
60 - 4 

70 - 58 
80 - 58 
90 - 180 
100 - 139 
110 - 46 
120 - 114 
130 - 236 
140 - 182 
150 - 156 
160 - 68 
170 - B 
180 - 191 
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200 - 241 
210 - 5B 
220 - 58 
230 - 138 
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250 - 76 
260 - 129 
270 - 203 
280 - 207 
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300 - 217 
310 - 134 
320 - 212 , 
330 - 142 
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350 - 58, 
360 - 217 ' 
370 - 58 ' 


Rege 

Regel 

Regel 

Rege 

Regel 

Regel 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege] 

Regel 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


380 - 58 
390 - 97 
400 - 197 
410 - 100 
420 - 195 
430 - 142 
440 - 144 
450 - 58 
460 - 58 
470 - 25 
480 - 26 
490 - 54 
500 - 142 
510 - 58 
520 - 58 
530 - 48 
540 - 238 
550 - 174 
560 - 58 
570 - 58 
580 - 185 
590 - 150 
600 - 254 
610 - 18, 
620 - 5 

630 - 103 - 
640 - 212 
650 - 229 ’ 
660 - 17 
670 - 63; 
680 - 92 
690 - 34 “ 
700 ■ 78 
710 - 144 
720 - 36 
730 - 164 
740 - 131* 
750 - 89 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Retp 

Rege 

Regel 

Regel 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 
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Regel 
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Regel 


760 
770 
780 
790 
800 
810 
B20 
830 
840 
850 
860 
870 
880 
B90 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 ■ 
1090 ■ 
1100 ■ 
1110 - 
1120 - 
1130 ■ 


- 234 

- 165' 

- 131 * 

- 239' 

- 71- 

- 212 

- 146 

- 125 

- 146’ 

- 231 

- 58 

- 58- 

- 212 

- 193 

- 228 

- 47 

- 254 

- 29- 

- 5* 

- 63 

- 10 
- 28 

- 17 

- 4 

- 60 

- 129 

- 191 

- 5B 

- 33 

■ 174 

■ 36 

■ 218 

■ 131 

■ 141 

• 227 

• 131 

■ 62 
247 
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Regel: 110) - 163 
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2110 
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Regel: 2890 - 
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- 58 
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- 3 
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- 38 
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- 151 

- 87 

- 232 
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- 58' 

- 58- 

- 73 ' 
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- 
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73 
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142 
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58 

Regel: 

2960 - 

18 
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2970 - 

59 

Regel: 

2980 - 

245 

tegel: 

2990 - 
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3000 - 

247 

tegel: 

3010 - 

248 

Regel: 

3020 - 

249 

tegel: 

3030 - 
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Regel: 

3040 - 

245 
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3050 - 

246 

Regel: 

3060 - 

247 

tegel: 

3070 - 

248 
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3080 - 
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tegel: 

3090 - 
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142 
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37259 


^ d 

fé, /. /A/& 


sr sZ/Z o x 



$&/> tf>6o.oe& 

ia>£poo^ 


7 











MINI GOLF 


Geen auto, maar een midget-golfspel voor 
de MSX. Het spel zal aan iedereen wel 
bekend zijn. Deze versie heeft 7 
speelvelden en de opbouw is dusdanig, dat 
het erg eenvoudig is om zelf speelvelden 
te veranderen of bij te maken. Bij het 
maken van nieuwe speelvelden moet wel de 
GOSUB-regel op regelnummer 100 aangepast 
worden. 

De sterkte van de slag wordt ingesteld met 
de vertikale baan links van de score- 
telling. Deze instelling geschiedt met de 
cursorpijlen (omhoog = hardere slag , 
omlaag = minder hard). Hierbij wordt een 
kleine (random) waarde opgeteld om het 
spel niet al te makkelijk te maken. Met de 
spatiebalk kan vervolgens de richting 
ingesteld worden, een tweede druk op de 
spatiebalk heeft de slag tot gevolg. De 
richting wordt aangegeven door een 
rondraaiend rondje; om de bal heen. De 
richtinginstelling blijft bewegen; ook 
weer om het spel niet al te eenvoudig te 
maken. Afhankelijk van de baan is een 
maximale score mogelijk. Voor elke slag 
wordt een aantal punten van deze maximale 
score afgetrokken. Wordt de baan niet 
gehaald, dan gaat het spel naar de 
volgende baan en de score wordt niet 
verhoogd. 

Succes. 

Alfred. 

Beeldscherm: WIDTH 36 


20 ’= MSX MIDGETGOLF = 

30 ! = 

40 ’ = <c)1986 MSX Gids Amsterdam = 

60 5 

70 CLEAR200:COLOR15,1,4:SCREEN 2,0,0 
80 KEYOFF:DEFINT A-Z:DEFSNG X,Y ' 

90 GOSUB 2630 

100 ON B GOSUB 800,930,1090,1340,163 

0,1800,2030 

110 GOSUB 560 

120 J=RND(1)*10:I = I+J 

130 J=202-1 

140 GOSUB 330 

150 SOUND 0,200:SOUND1,2:SOUND13,9 
160 SDUND 11,100!SOUND12,40 
170 FOR I=1TÖ900:NEXT 
180 •’ 

190 ’ MAINLOOP 

200 SOUND1,0:FOR 1=0 TO J 

210 PUTSPRÏTE1,(X,Y>,15,1 

220 IFPOINT(X +4,Y+4)=13 AND K40 THE 

N2270 

230 ’ 

240 IFPOINT <X —1,Y+3)=12THENXX=ABS(XX 
):X=X+1:SOUND 13,9 

250 IFPOINT (X+8,Y+3) = 12THENXX=0-XX:X 
=X-1:SOUND 13,9 

260 IFPOINT(X+3,Y-1)=12THENYY=ABS(YY 
):Y=Y+1:SOUND 13,9 

270 IFPOINT < X +3,Y+B)-12THENYY=0-YY:Y 
=Y-1:SOUND 13,9' 

280 X=X+XX:Y=Y+YY 



290 NEXT 
300 GOTO 2380 
310 ' 

320 'RICHTING INSTELLEN 
330 XX=0: YY=-2:XS=X:YS=Y+10 
340 X*=INKEY*:IF X*=" "THEN RETURN 
350 XX=XX+.2:YY=YY+.2:XS=XS-1:YS=YS- 
1 

360 GOSUB 460:GOTO 340 
370 X*=INKEY$:IF X$=" "THEN RETURN 
380 XX=XX—.2:YY=YY+.2:XS=XS+1:YS=YS- 
1 

390 GOSUB 460:GOTO 370 
400 X*=INKEY$:IF X$=" "THEN RETURN 
410 XX=XX-.2:YY=YY-.2:XS=XS+1:YS=YS+ 
1 

420 GOSUB 460:GOTO 400 
430 X*=INKEY$:IF X*=" "THEN RETURN 
440 XX=XX + .2:YY=YY-.2:XS=XS-1: YS=YS+ 
1 

450 GOSUB 460-.GOTO 430 
460 PUT SPRITE 2,(XS,YS),9,2 
470 FOR 1=1 TO 51-(B#7):NEXT 
480 SOUND 1,3: SOUND 13^,9 
490 IF XX=0 AND YY=-2 THEN RETURN 34 
0 

500 IF XX=2 AND YY=0 THEN RETURN 370 
510 IF XX=0 AND YY=2 THEN RETURN 400 
520 IF XX=-2 AND YY=0 THEN RETURN 43 
0 

530 RETURN 
540 ’ 

550 •’ SLAG INSTELLEN 
560 LINE(139,1)-(143,190),1,BF 
570 FOR 1=80'TO 190 
580 LINE(140,I)—(142,I),6 
590 SOUND 0,1+30:SOUND 13,9:SOUND 12 
, 1 

600 SOUND1,0!SOUND 11,250:NEXT:1=80 
610 X$=INKÈY$:IFX$=""THEN 610 
620 IFX*=CHR* < 30)ANDI>1THENI = I-1:LIN 
E(140,I) — (142,I),6 

630 IF X*=CHR*(31)ANDI<190THENLINE(14 
0,I)-(142,I),1:1=1+1 

640 SOUND 0,ï +30:SOUND 13,9:S0UND 12 
, 1 

650 IF X$=" "THEN RETURN 
660 GOTO 610 
670 ’ 

680 'SCORES WISSEN/OPNIEUW INVULLEN 
690 LINE(158,102)-(248,112),1,BF 
700 LINE(158,134)-(248,144),1,BF 
710 LINE(230^ 70)-(248,80),1,BF 
720 PRESET(231,71):PRINT#1,B 
730 LINE(158,158)-(250,188),1,BF 
740 COLOR 6 ' 
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750 PRESET(159,103) sPRINTttl ,USING"## 
& &&&:£&»» - cp er 

760 PRESET(207,135)sPRINT#1,USING"## 
###";TS 
770 RETURN 
780 ’ 

790 * BAAN 1 

800 GOSUB 2450 

810 CIRCLE(66,44),39,1 

820 PAINT <66,44),1 

830 LINE (50,70) -'(82, 186) , 1, BF 

840 CIRCLE<66,44>,4,13 

850 PAINT(66,44),13' 

860 X=62:Y=160 

870 PUT SPRITE 1,(X,Y),15,1 

880 SP=250s SC=0 

890 GOSUB 690 

900 RETURN 

910 •’ 

920 * BAAN 2 

930 GOSUB 2450 

940 CIRCLE(87,39),30,1 

950 PAINT(87,39),1 

960 LI NE (7, 23) — (70,55) , 1, BF 

970 LINE(7j55)- (31 i183),ï,BF 

980 LINE(31,159)—(119,183),1,BF 

990 LINE(55,95) — <111,135),7,BF 

1000 CIRCLE<87,39),4,13 

1010 PAINT(87,39),13' 

1020 X=105:Y=168 ' 

1030 PUT SPRITE 1,(X,Y),15,i 

1040 SP=400:SC=0 

1050 GOSUB 690 

1060 RETURN 

1070 ’ 

1080 •’ BAAN 3 
1090 GOSUB 2450 

1100 LINE(95,7)—(119,183),1,BF 
1110 LINE(7,7)—(95,31),1,BF 
1120 LINE(7,31)-(31,159)i1,BF 
1130 CIRCLE(39,152),30,1 
1140 PAINT(39,152),ï 
1150 CIRCLE(39,152),4,13 
1160 PAINT(39,152),13' 

1170 LINE(111,71)—(119,95),12,BF 

1180 LINE (10315)-(111,20) , 12, BF 

1190 LINE(47,23)-(71,31),12,BF 

1200 LINE(7,63)-(15,111)i12^BF 

1210 LINE(47,39)-(79,111) , 1;BF 

1220 CIRCLE<63,55),14,5 

1230 CIRCLE(63i95) , 14,5 

1240 PAINT <63, 55), 5 

1250 PAINT (63,95),5 

1260 LINE < 52, 60)-(74,90),5,BF 

1270 X=103:Y=167 

1280 PUT SPRITE 1,<X,Y),Ï5,1 

1290 SP=600:SC=0 


1300 GOSUB 690 
1310 RETURN 
1320 ’ 

1330 “BAAN 4 
1340 GOSUB 2450 

1350 LINE(103,143)-(127,183),1,BF 
1360 LINE(71,B7)-<127,143),l' 

1370 LINE(103,159)-(55,111),1 
1380 LINE(55,111)—(55,71),1 
1390 LI NE (55,71) — (95,31) , 1 
1400 LINE(71,87)-(127,31),1 
1410 LINE < 7,7) — (127,31),1,BF 
1420 LINE(7,31)-(31,111),1,BF 
1430 LINE(31,103 >-(87,159),1 
1440 LINE(7,111) — (55,ï59),1 
1450 LINE(7,159)—(87,183),1,BF 
1460 LINE<7,127)-<7,159),1 
1470 LINE(7;127)-(39,159),1 
1480 LINE(31,79)-(79,31),i 
1490 PAINT(47,47),1 
1500 PAINT(95,47),1 
1510 PAINT(39;127),1 
1520 PAINT(15;151),1 
1530 LINE(17,17)—(48,45),12,BF 
1540 CIRCLE(Ï9,153),4,13' 

1550 PAINT(19,153),13' 

1560 X=1 lis Y=167 
1570 PUT SPRITE 1,(X,Y),15,1 
1580 SP=700:SC=0 
1590 GOSUB 690 
1600 RETURN 
1610 * 

1620 ’BAAN 5 

1630 GOSUB 2450 

1640 LINE(7,7)-(127,183),1,BF 

1650 LINE(31,151)—(127,159>,12,BF 

1660 LINE(7,ï19)-(103,127),12,BF 

1670 LINE(31,87)-(127,95),12,BF 

1680 LINE(7,55)-(103,63),12,BF 

1690 LINE(71,7)—(127,31),12,BF 

1700 LINE<40,18)-<4B,45),12,BF 

1710 CIRCLE(23,31),4,13 

1720 PAINT<23,31),13 

1730 X=1 11:Y=Ï67 

1740 PUT SPRITE 1,(X,Y),15,1 

1750 SP=600:SC=0 

1760 GDSUB 690 

1770 RETURN 

1780 •’ 

1790 'BAAN 6 

1800 GOSUB 2450 

1810 CIRCLE(68,71),60,1 

1820 PAINT(68,71),1 

1B30 CIRCLE<23,23),16,1 

1840 PAINT<23,23),1 

1850 CIRCLE(111,23 >,16,1 

1860 PAINT(111,23),1 

1870 CIRCLE(68;71>;40,12 

1880 PAINT(68,71),12 

1890 CIRCLE(68,71),20,1 

1900 PAINT<68,71),1 

1910 CIRCLE(68,71),4,13 

1920 PAINT(68,71),13 

1930 LINE(15,95)—(31,183),1,BF 

1940 LINE(15,167)-(127,183),1,BF 

1950 X=1 11!Y=172 

1960 PUT SPRITE 1,(X,Y),15,1 

1970 SP=800:SC=0 

1980 GOSUB 690 

1990 LINE < 62,23) — < 75,55),1,BF 
2000 RETURN 
2010 ’ 

2020 ’BAAN 7 
2030 GOSUB 2450 

2040 LINE(102,7)—(127,183),1,BF 
2050 LINE(7,7)-(103,32),1,BF' 

2060 LINE(7,31)-(32,150),ï,BF 
2070 CIRCLE<47,140),40,1' 



















2080 PAINT(47,140),1 

2090 CIRCLE(47,140) ,4, 13 

2100 PAINT(47,140),13 

2110 LINE(111,31)—(117,119),12,BF 

2120 LINE(39,Ï7)-(79,21),12iBF' 

2130 LINE <16,23) — (22,30),12,BF 

2140 LI NE (16, 55) — (22, 63) i 12!, BF 

2150 LI NE (1 é> i 87) - (22 \ 96) !, 12!, BF 

2160 LINE(45,40)-(90,79),5,BF 

2170 LINE (33!, 95) — (38!, 160) , 12, BF 

2180 LINE(33^151)-(64,160),12,BF 

2190 LINE(60 , 120)—(64,160),12,BF 

2200 X=111:Y=167 

2210 PUT SPRITE 1,(X,Y),15,1 

2220 SP=950:SC=0 

2230 GOSUB 690 

2240 RETURN 

2250 ' 

2260 - HOLE !!! 

2270 SC=SP 
2280 TS=TS+SP 
2290 GOSUB 690 
2300 COLOR 5*.B=B+1 

2310 PRESET(159,159):PRINT#1,"Druk e 
en " 

2320 PRESET (159, 170) : PR I NT# 1, " Toet s. 

)l 

2330 X$=INKEY$: IF X*=""THEN 2330 
2340 IF B>7 THEN 2520 
2350 GOTO 100 
2360 ’ 

2370 ' GEEN HOLE 

2380 SP=SP—50 

2390 GOSUB 690 

2400 IF SP>0 THEN 110 

2410 B=B+1:IF B>7 THEN 2520 

2420 GOTO 100 

2430 ' 

2440 ’VELD WISSEN-SPRITES UIT BEELD 
2450 PUT SPRITE 1,(0,209),15,1 
2460 PUT SPRITE 2,(0,209),6,2 
2470 LINE(0,0)—(135,191),1,B 
2480 LINEd, 1) — (134, 190) , 12, BF 
2490 RETURN’ 

2500 ’ 

2510 'EINDE 

2520 LINE(0,0)—(135,191),1,BF 
2530 B=1:SC=0:ST=0:SP=0:COLOR 15 
2540 PRESET(2,80):PRINT#1,"NOG EEN K 
EER?" 

2550 PRESET(80,100):PRINT#1," J/ N: "? 

CHR$(219) 

2560 X$=INKEY$:IF X$="J" OR X$=”j" T 
HEN 2560 

2570 X$=INKEY$:IF X$=""THEN 2570 
2580 IF X$="J"ORX$="j"THEN100 
2590 IF X $="N"ORX$="n"THEN END 
2600 GOTO 2570 


2610 ' 

2620 'INITIALISATIE 

2630 X=0:Y=0: XX=0:YY=0 

2640 FOR 1=1 TO 2 

2650 X$=""sFOR J=1 TO 8 

2660 READ B: X*=X$+CHR$<B>:NEXT 

2670 SPRITE$(I)=X*:NEXT 

2680 ' 

2690 DATA 0,60,126,126,126,126,60,0 
2700 DATA 0,0,24,60,60,24,0,0 
2710 ' 

2720 OPEN"GRP:"FOR OUTPUT AS#1 
2730 ' 

2740 LINE(151,0)-(255,191),15,B 
2750 LINE(155,4)-(250,30),10, BF 
2760 COLOR 1 

2770 PRESET<191,7):PRINT#1,"MSX" 

2780 PRESET <159,18 >:PRINT#1,"MIDGET 
GOLF" 

2790 PRESET(160,18):PRINT#1,"MIDGET 
GOLF" 

2800 LINE(155,65)-(250,150),10,B 
2810 COLOR15 

2820 LINE(155,82)-(250,82),10 

2830 PRESET(175,38):PR ï NT# ï,"(c)1986 

II 

2840 PRESET(172,50):PRINT#1,"MSX GID 
S" 

2850 PRESET(159,70):PRINT#1,"Baannr. 

II 

2860 PRESET(160,70):PRINT#1,"Baannr. 

II 

2870 PRESET(159,87):PRINT#1,"Baansco 
re" 

2880 PRESET(160,87):PRINT#1,"Baansco 
re" 

2890 PRESET(159,119):PRINT#1,"Totaal 
score" 

2900 PRESET(160,119):PRINT#1,"Totaal 
score" 

2910 B=1 

2920 SC=0 : ST=0 : SP=0 

2930 SOUND 7, 248: SOUND 0,1-.SOUND 1,0 
2940 SOUND 8,16:SOUND 9,16:SOUND 10, 
16 

2950 SOUND11,100:SOUND12,1:SOUND13,9 
2960 RETURN 


CONTROLETELLING 
Regelt 10 - 58 
Regelt 20 - 58 
Regelt 30 - 5B 
Regelt 40 - 5B 
Regelt 50-58 
Regel: 60 - 58 
Regelt 70 - 169 
Regel: 80 - 46 
Regelt 90-11 
Regel: 1O0 - 229 
Regel: 110 - 237 
Regel: 120 - 37 
Regel; 130 - 77 
Regel: 140 - 6 

Regel: 150 - 167 
Regel: 160 - 25 
Regel: 170 - 37 
Regel: 180 - 58 
Regel: 190 - 58 
Regel: 200 - 155 
Regelt 210 - 110 
Regel: 220 - 81 
Regel: 230 - 58 
Regel: 240 - 20 
Regel: 250 - 72 
Regel: 260 - 26 
Regelt 270 - 78 
Regel: 280 - 190 
Regel: 290 - 131 
Regel: 300 - 12 
Regelt 310 - 58 
Regel: 320 - 58 
Regel: 330 - 244 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


340 

- 

147 

Regel 

6B0 - 

58 

350 

- 

192 

Regel 

690 - 

53 

360 

- 

206 

Regel 

700 - 

117 

370 

- 

147 

Regel 

710 - 

61 

380 

- 

192 

Regel 

720 - 

250 

390 

- 

236 

Regel 

730 - 

187 

400 

- 

147 

Regel 

740 - 

244 

410 

- 

192 

Regel 

750 - 

208 

420 


10 

Regel 

760 - 

153 

430 

- 

147 

Regel 

770 - 

142 

440 

- 

192 

Regel 

780 - 

58 

450 

- 

40 

Regel 

790 - 

58 

460 


82 

Regel 

800 - 

86 

470 

- 

148 

Regel 

810 - 

101 

480 

- 

182 

Regel 

820 - 

6 

490 

- 

98 

Regel 

830 - 

77 

500 

- 

142 

Regel 

840 - 

78 

510 

- 

172 

Regel 

850 - 

16 

520 

- 

188 

Regel 

860 - 

197 

530 

- 

142 

Regel 

870 - 

174 

540 

- 

58 

Regel 

880 - 

107 

550 

- 

58 

Regel 

890 - 

111 

560 

- 

1 

Regel 

900 - 

142 

570 

- 

31 

Regel 

910 - 

58 

580 

- 

16B 

Regel 

920 - 

58 

590 

- 

127 

Regel 

930 - 

86 

600 

- 

14 

Regel 

940 - 

108 

610 

- 

55 

Regel 

950 - 

22 

620 

- 

137 

Regel 

960 - 

102 

630 

- 

65 

Regel 

970 - 

223 

640 


127 

Regel 

980 - 

181 

650 


2 

Regel 

990 - 

91 

660 

- 

27 

Regel 

1000 - 

94 

670 


58 

Regel 

1010 - 

32 
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Rege 

1020 

- 24B 

Rege 

1680 

- 184 

Rege 

2340 • 

- 252 

Rege 

1030 

- 174 

tege 

1690 

- 192 

tege 

2350 ■ 

- 27 

Rege 

1040 

15 

Rege 

1700 

- 105 

Rege 

2360 ■ 

- 58 

Rege 

1050 

- 111 

tege 

1710 

- 22 

tege 

2370 • 

- 58 

Rege 

1060 

142 

Rege 

1720 

- 216 

Rege 

2380 - 

- 104 

Rege 

1070 

- 56 

Rege 

1730 

- 253 

tege 

2390 ■ 

■ 111 

Rege 

10B0 

58 

Rege 

1740 

- 174 

Rege 

2400 - 

■ 227 

Rege 

1090 

B6 

Rege 

1750 

- 216 

Rege 

2410 ■ 

■ 172 

Rege 

1100 

95 

Rege 

1760 

- 111 

Rege 

2420 - 

- 27 

Rege 

1110 

B9 

tege 

1770 

- 142 

tege 

2430 - 

• 58 

Rege 

1120 

175 

Regel 

1780 

- 58 

Rege 

2440 - 

• 58 

Rege 

1130 

173 

tege 

1790 

- 58 

Rege 

2450 - 

• 238 

Rege 

1140 

87 

Regel 

1800 

- B6 

Rege 

2460 - 

233 

Rege 

1150 

159 

tege 

1810 

- 151 

Rege 

2470 - 

205 

Rege! 

1160 ■ 

97 

Rege 

1820 

- 35 

Rege 

2480 - 

28 

Rege: 

1170 

94 

Rege 

1830 

- 14 

Rege 

2490 - 

142 

Rege: 

HBO 

203 

Regel 

1840 

- 198 

Rege 

2500 - 

58 

Rege: 

1190 • 

126 

tegei 

1850 • 

- 102 

tege 

2510 - 

58 

Regel 

1200 ■ 

152 

Regel 

1B60 - 

- 30 

Rege 

2520 - 

19 

Regel 

1210 ■ 

221 

Rege! 

1870 ■ 

- 140 

Rege 

2530 - 

6 

Regel 

1220 ■ 

BB 

Regel 

1880 ■ 

- 44 

Rege 

2540 - 

132 

Rege! 

1230 ■ 

128 

tegel 

1890 • 

- 111 

Rege 

2550 - 

174 

Rege! 

1240 ■ 

50 

Regel 

1900 ■ 

■ 35 

Rege 

2560 - 

183 

Regel 

1250 ■ 

90 

tege! 

1910 - 

- 107 

Rege 

2570 - 

7 

Regel 

1260 - 

225 

Regel 

1920 ■ 

■ 45 

Rege 

2580 - 

0 

Regel 

1270 - 

245 

tege! 

1930 ■ 

- 13 

tege 

2590 - 

55 

Regel 

12B0 ■ 

174 

Regel 

1940 ■ 

■ 181 

Rege 

2600 - 

203 

tegel 

1290 - 

216 

tegel 

1950 • 

■ 2 

tege 

2610 - 

58 

Regel 

1300 - 

111 

Regel 

1960 - 

■ 174 

Rege 

2620 - 

58 

tegel 

1310 - 

142 

Regel 

1970 - 

- 161 

tege 

2630 - 

193 

Regel 

1320 - 

56 

Regel 

1980 - 

■ 111 

Regel 

2640 - 

24 

tegel 

1330 - 

58 

Regel 

1990 - 

■ 160 

Regel 

2650 - 

8 

Regel 

1340 - 

86 

Regel 

2000 - 

■ 142 

Regel 

2660 - 

224 

tegel 

1350 - 

■ 136 

tegel 

2010 ■ 

■ 58 

Regel 

2670 - 

173 

Regel 

1360 - 

■ 203 

Regel 

2020 - 

■ 58 

Rege! 

2680 - 

58 

tegel 

1370 - 

■ 193 

Regel 

2030 - 

- 86 

Regel 

2690 - 

104 

Regel 

13B0 - 

■ 57 

Regel 

2040 - 

■ 110 

Regel 

2700 - 

48 

Regel 

1390 - 

• 17 

Regel 

2050 - 

• 98 

Regel 

2710 - 

58 

Regel 

1400 - 

81 

Regel 

2060 - 

• 167 

Regel 

2720 - 

241 

Regel 

1410 - 

121 

Regel 

2070 - 

179 

tegel 

2730 - 

58 

Regel 

1420 - 

127 

Regel 

2080 - 

■ 83 

Regel 

2740 - 

230 

tegel 

1430 - 

145 

Regel 

2090 - 

155 

tegel 

2750 - 

137 

Regel 

1440 - 

99 

Regel 

2100 - 

• 93 

Regel 

2760 - 

239 

tegel 

1450 - 

127 

Regel 

2110 - 

76 

Regel 

2770 - 

142 

Regel 

1460 - 

69 

Regel 

2120 - 

• 110 

Regel 

2780 - 

129 

tegel 

1470 - 

99 

tegel 

2130 - 

■ 45 

Regel 

2790 - 

130 

Regel 

14B0 - 

241 

Regel 

2140 - 

110 

Rege] 

2800 - 

246 

Regel 

1490 - 

246 

Regel 

2150 - 

175 

Regel 

2810 - 

219 

Regel 

1500 - 

38 

Regel 

2160 - 

203 

Regel 

2820 - 

85 

tegel 

1510 - 

62 

Regel 

2170 - 

24 

Regel 

2830 - 

47 

Regel 

1520 - 

62 

Regel 

21BÖ - 

106 

Regel 

2840 - 

235 

Regel 

1530 - 

BI 

Regel 

2190 - 

102 

Regel 

2850 - 

51 

Regel 

1540 - 

140 

Regel 

2200 - 

253 

Regel 

2860 - 

52 

tegel 

1550 - 

78 

tegel 

2210 - 

174 

Regel 

2870 - 

82 

Regel 

1560 - 

253 

Regel 

2220 - 

55 

Regel 

2880 - 

83 

tegel 

1570 - 

174 

tegel 

2230 - 

111 

tegel 

2890 - 

101 

Regel 

15B0 - 

60 

Regel 

2240 - 

142 

Regel 

2900 - 

102 

tegel 

1590 - 

111 

Regel 

2250 - 

58 

tegel 

2910 - 

67 

Regel 

1600 - 

142 

Regel 

2260 - 

58 

Regel 

2920 - 

84 

tegel 

1610 - 

58 

Regel 

2270 - 

40 

tegel 

2930 - 

9 

Regel 

1620 - 

58 

Regel 

2280 - 

209 

Regel 

2940 - 

77 

tegel 

1630 - 

86 

Regel 

2290 - 

111 

Regel 

2950 - 

52 

Regel 

1640 - 

17 

Regel 

2300 - 

163 

Regel 

2960 - 

142 

tegel 

1650 - 

166 

tegel 

2310 - 

250 

Totaa 

32914 


Regel 

1660 - 

56 

Regel 

2320 - 

176 




tegel 

1670 - 

38 

tegel 

2330 - 

22 






SPLITSEN 

Dit programma oefent het splitsen van 
getallen. Voordat de eerste leerling 
begint, moet de leerkracht enige gegevens 
invoeren. 

- Het aantal leerlingen dat met het pro¬ 
gramma gaat werken (maximaal 20). 

“ Het aantal maal dat iedere leerling de 
oefening moet doen (maximaal 25). 

- Het vaste te splitsen getal (minimaal 5, 
maximaal 99) of het maximale te splitsen 
getal (minimaal 5 , maximaal 99) als het 
te splitsen getal wisselend is. Dit is 
uiteraard naar keuze. 

De gemaakte keuzes worden vervolgens 
getoond en desgewenst kunnen de keuzes 
opnieuw gemaakt worden. Vervolgens wordt 
gemeld, dat het programma voortijdig af te 
breken is door -voordat een leerling 
begint (dus als op het scherm staat: "Hoe 
heet je?")- op funktietoets 6 te drukken. 
Na een druk op SELECT kan de eerste 
leerling beginnen. 

De leerling moet zijn/haar naam intoetsen 
en krijgt vervolgens de uitleg te zien. Na 
een druk op SELECT kan hij/zij beginnen. 

Op het scherm worden een autobus en een 
haltepaal getekend. Op de haltepaal komt 
te staan hoeveel mensen er in de bus 
zitten. Op de bus staat hoeveel mensen er 
beneden zitten. Voor alle duidelijkheid 
worden die gegevens ook boven in het beeld 
vermeld. De leerling moet nu aangeven 
hoeveel mensen er boven in de bus zitten. 
Het getal moet worden ingetikt (gevolgd 
door een druk op RETURN of ENTER). Als het 
juiste getal wordt ingetikt, verdwijnt de 
tekst in het beeld, komen er op de bus 
twee draaiende vlaggen te staan, ver¬ 
schijnt er op het reclamebord van de bus 
drie keer het woordje 'goed' en klinkt er 
een muziekje. Vervolgens verschijnt er een 
nieuwe reclame op het bord, waarna de 
volgende opgave wordt getoond. 

Als het gegeven antwoord niet correct is, 
verschijnt het woord 'fout' op het 
reclamebord, terwijl de zonnegordijntjes 
van de bus dicht gaan. De tekst boven in 
het beeld verdwijnt en daar wordt het 
juiste antwoord getoond, aangevuld met de 
bij de splitsing behorende optel- en 
aftreksom. Na een druk op SELECT 
verdwijnen tekst en zonnegordijntjes, 
waarna de volgende opgave verschijnt. Na 
de laatste opgave wordt gemeld hoe vaak de 
leerling het juiste antwoord heeft gegeven 
en na een druk op SELECT kan de volgende 
leerling aan het werk. 

Na de laatste leerling moet de leerkracht 
het codewoord intikken, waarna de uitslag 
wordt getoond. Het codewoord is "uitslag". 

Bij iedere opgave worden in de bus een 
aantal gezichtjes getekend (mensen die in 
de bus zitten). Het programma is zo 
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gemaakt, dat het aantal mensen dat boven 
of beneden zit nooit meer is dan het 
aantal dat volgens de opgave mogelijk is. 
Dit om de kinderen niet in de war te 
brengen. Er zitten boven en beneden nooit 
meer dan vier mensen, zodat het spliten 
bij aantallen groter dan vier niet door 
tellen kan worden gedaan. 

De getallen voor de opgaven worden 
willekeurig gekozen, maar dusdanig dat 
dezelfde som de eerstvolgende drie opgaven 
niet terug kan keren. 

De teksten op het scherm zijn kort 
gehouden en de invoer is op alle plaatsen 
beveiligd. Het programma is hierdoor ook 
goed te gebruiken door jongere leerlingen. 



EEN AANTAL PUNTEN UIT DE LISTING 


Regel 90 schakelt de funktietoetsen en de 
stoptoets uit. Het is wellicht verstandig 
deze regel als laatste in te voeren. Zet 
in dat geval wel even een REM op regel 90, 
anders werkt het programma bij tussentijds 
bekijken niet. 

De regels 170 tot en met 290 zorgen voor 
het openingsscherm. Deze regels hebben 
voor het verdere verloop van het programma 
geen nut. Als je het wat te veel tikwerk 
vindt, kun je deze regels overslaan. 

Regel 370 maakt de invoerbuffer leeg. 

Regel 730 schakelt een eventuele CAPS- 
stand uit. Regel 760 maakt een hoofdletter 
van de eerste letter van de naam van het 
kind (als het kind dat zelf niet gedaan 
heeft). In regel 1050 en verder wordt de 
splitssom samengesteld. Regel 1060 zorgt 
voor een wisselend getal, regel 1070 voor 
een vast getal. Welke regel gebruikt 
wordt, hangt uiteraard af van de keuze die 
in het begin door de leerkracht is ge¬ 
maakt. Regel 1080 controleert of de 
samengestelde splitssom in een van de 
vorige vier beurten aan bod is geweest. 
Als dat het geval is. wordt er een nieuwe 
som gemaakt. 

De zwarte strepen die je onder andere in 
regel 1200 ziet, kun je maken door 
tegelijkertijd de GRAPH-toets en de 'p' in 
te drukken. Die 'strepen' zijn nodig om 


stukken tekst in screen 2 te laten 
verdwijnen. Nogal omslachtig, maar 
noodzakelijk vanwege het feit dat screen 2 
een grafisch scherm is. 

In regel 1360 en 1370 wordt het codewoord 
gecontroleerd. Als je je eigen codewoord 
wilt maken, moet je de eerste letter van 
dat woord in de string (AA$) in regel 1360 
plaatsen (dit in verband met het 
onzichtbaar maken van het intikken van het 
codewoord) en de rest van je codewoord in 
de string in regel 1370. Regel 1620 zorgt 
voor een reset. Let op dat deze regel niet 
geactiveerd wordt als je je programma nog 
niet hebt weggeschrijven!! 

De rest van het programma en de na regel 
1640 volgende subroutines en dataregels 
vereisen mijns inziens geen nadere uitleg. 

Succes, 

Peter van de Aar. 


Beeldscherm: WIDTH 36 

• •»»*«■■*»* «■«..B.B.Bir. 

20 * # Getallen splitsen % 

30 * % Een programma van * 

40 * % Peter van der Aar % 

50 ’ * (c)1986 MSX-Gids * 

^ Jl ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

70 ’ 

80 GOTO160 

90 COLOR15,4,4:SCREEN0:WIDTH37:KEYOF 
F:FORAA=1TÓ10:KEYAA,”":NEXT:POKE&HFB 
BI, 1 

100 M$="T230S10M15000L2O3F+G+A+F+F+G 
+A+F+A+B04C+1R16D3A+B04C+1R32L4C+D+C 
+03BA+2F+2L404C+D+C+03BA+2F+2L2F+C+F 
+1F+C+F+1" 

110 OPEN”GRP:"FOROUTPUTAS#1 
120 RETURN 
130 •' 

140 ’ Openingsscherm 

150 ' 

160 CLEAR2000:GOSUB90 
170 SCREEN2:COLOR14,5,8:PLAYM$ 

180 FORAA=10TO50STEP5:FORAB=10TO70ST 
EP4:AC=AA—5:AD=AC/2.5 

190 LINE(AC,AD)—(AD,AC),15:LINE<AA,A 

B)-(AB,AA),15:NEXTAB,AA 

200 FORAA=i00TD175STÈP15 

210 CIRCLE(AA, 50) ,20,,,,1„4:PAINT(AA 

,50),14:NEXTAA 

220 F0RAA=120T0225STEP15 

230 CIRCLE(AA,100),20,11,,,1.4:PAINT 

(AA,100),11:NÈXTAA’ 

240 FORAA=140TO215STEP15 

250 CIRCLE(AA,150),20,,,,1„4:PAINT(A 

A,150),14:NEXTAA 

260 PRESET(108,50):C0L0R4:PRINT#1,"M 
SX-Gids" 

270 PRESET(122,99):PRINT#1,"Postbus 
10252" 

280 PRESET(143,150):PRINT#1,"Amst er d 
am" 

290 PRESET(10,170):COLOR15:PRINT#1," 
Copyright 1986":FORAA=1TO2000:NE X T 
300 ’ 

310 ’ ### Inleiding 
320 * 

330 SCREEN0:CLS:C0L0R15,4,4 
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340 L0CATE6,1;PRINT "GETALLEN SPLITSE 
N" : PRINTTAB (6) 

350 l_OCATE0,4:PR I NT' , Dit programma oe 
•tent het spl i tsen PRINT" van getalle 
n"SPRINT"Voordat de eerste leerling 
begint,"sPRlNT"moet de leerkracht e 
nige gegevens"sPRINT"invoeren." 

360 PRINT:PRINT"Hoeveel leerlingen q 
aan er nu met"sPRINT"dit programma w 
erken? (ma*. 20) 

370 DEFUSR1=342:U=USR1(0) 

380 L0CATE33,11:AY=2: GOSUB1660 sIFB*= 
THEN380 

390 B=VAL(B$):IFB<1DRB>20THEN380 
400 PRI NTs PR INT" Hoe vaak moet ieder 
kind de" :PRINT"oe-fening doen? (max. 

2u) 

j^^ ! ^bOCATE33, 14: GOSUB 1660: IFB$=" “THE 

420 C=VAL (B$) : I FC< 10RO25THEN410 
430 PRINT:PRINT"Moet het te splitsen 
getal VAST (v) o-f steeds WISSELEND 
i (w! z^i jn?" : F'RINT"Ti k v of w.": PRINT 

440 A A$=INKEY$:IFAA$=»v"ORAA$="V"THE 

NDV-1:GOTO450ELSEIFAA$="w"ORAA$="W"T 
HENDV=0: GOTO490ELSE440 
450 PRINT"Welk getal moet steeds ges 
plitst":PRINT"worden?"SPRINT"(minima 
al 5, maximaal 99) 

46Ö^L0CATE33,22 s GOSUB1660 sIFB$=""THE 

470 DD=VAL(B$>:IFDD<5ÜRDD>99THEN460 
480 GOTO520 
490 PRINT"Hoe groot mag het te split 
sen getal ": PRlNT"hoogstens zijn' 7 ": PR 
INT"(minimaal 5, maximaal 99)" 

500 L0CATE33,22:GOSUB1660:IFB$=""THE 
N500 

510 D=VAL(B$):IFD<5ORD>99THEN500 
520^CLSSPRINT"EVEN HERHALEN:"SPRINT: 

530 PRINTUSIN6"Aantal leerlingen 
##.";B:PRINT 

540 PRINTUSING"De oefening wordt 
## keer";C:PRINT"gedaan."sPRINT 
550 IFDV=1THEN580 

560 PRINT"Er wordt een WISSELEND sdI 
its-":PRINT"getal gebrui kt." 

570 PRINTUSING"Het hoogste getal is 
##.";D:GOTO600 y 

580 PRINT"Er wordt een VAST splits-Q 
etal"s PRINT"gebrui kt." 

590 PRINTUSING"Dat splits-getal is 
##.”;DD 

600 FORAA=ITO1000:NEXT:PRINT: PRINT"K 
lopt dat? (j/n)" 

610 DEFUSR1=342:U=USR1(0) 

620 AA*=INKEY*:IF AA$="j"ORAA$="J"THE 
N630ELSEIFAA$="n"ORAA$="N"THEN330FI S 
E620 

630 DIMD$(B),CU(B) 

640 LOCATE0,15:PRINT"U kunt het prog 
ramma voort i jdi g ": PRINT"af breken doo 
r -voordat een 1 eer1ing":PRINT"begin 
t- op f unkti etoets 6 te" : PRINT"drukk 

en. ‘ --": PRINT 

650 PRINT:PRINT"Als U nu op SELECT d 
rukt, kan":PRINT"de eerste leerlinq 
beginnen." 

660 DEFUSR1=342:U=USR1(0) 

670 AA$=INKEY$:IFAA$=CHR$(24)THEN710 
ELSE670 
680 ’ 

690 ’ ### Hoofdlus leerlinq 
700 ’ 

710 FORBL=1TOB: SCREEN0 :COLOR1,6,4 


L0CATE4,10:PRINT"Hoe heet je?":L 
/E9,14:PRINT"(maximaal 12 letters 

0 PÜKE&HFCAB,&H0:OUT170,INP(170)OR 

40 DEFUSR1=342:U=USR1(0) 

750 L0CATE19,10:GOSUB1750:IFC*=""THE 
N750 

760 AA=ASC(MID*(C$,1,1)):IFAA>96ANDA 
As123THENAA=AA-32:MID$(C$,1,1)=CHR$( 
AA) 

770 CT=0 :CM=1:01=100:02=100:03=100:Q 
4= 100 

780 COLOR15,4,4:CLS:PRINT"Dag, "C$". 

11! LOCATE0, 4: PRINT" Je ziet dadelijk e 
en bus.":LOCATE0,7:PRINT"OP DE HALTE 
staat hoeveel mensen":PRINT:PRINT"e 
r IN DE BUS zitten." 

790 LOCATE0,12: F'RINT"OP DE BUS staat 
hoeveel mensen er":PRINT:PRINT"BENE 
DEN zitten.":LOCATE0,17:PRINT"Jij mo 
et zeggen hoeveel er":PRINT:PRINT"B0 
VEN zitten." 

800 F0RAA=ITO1000:NEXT 

810 L0CATE15,22: F’RINT"Druk op SELECT 

820 DEFUSR1=342:U=USR1(0) 

830 AA$=INKE Y$:AA=RND(1):IFAA$=CHR$( 

24)THEN840ELSE830 

840 CLS:COLOR1,10,4:SCREEN2,2 

850 PLAYM* 

860 GOSUB1840 
870 F0RCL=1TOC 

880 COLOR15:PSET(45,106):COLOR1 
890 IFCL=10RCL=160RCL=25THENPRINT#1, 

" reclame " 

900 IFCL=20RCL=120RCL=22THENPRINT#1, 
"Drink meer MELK" 

910 I FCL.=30RCL= 180RCL=24THENPRI NT # 1, 

" Lees de krant " 

920 IFCL=40RCL=13THENPRINT#1,"MSX-gi 
ds A’dam" 

930 IFCL=5ORCL=20THENPRINT#1," Ik ro 
ok nooit " 

940 IFCL=60RCL=14THENPRINT#1," Coc 
a-Cola " 5 

950 IFCL=70RCL=17THENPRINT#1," PH 

ILIPS 

960 IFCL=BÜRCL=21 THENF'RINT# 1, "Ik hou 
van jou " 

970 IFCL=90RCL=19THENPRINT#1,"Eet ee 
n appel! " 

980 IFCL=10ORCL=15THENPRINT#1," Pak 
de -fiets " 

990 IFCL=110RCL=23THENPRINT#1," Neem 
de trein " 

1000 RESTORE2020:F0RAA=1T02:AFf="":F 
0RAB=1T032:READAC 

1010 AF$=AF$+CHR$(AC):NEXTAB:SPRITE$ 
(AA)=AF$:NEXTAA 

1020 FQRAA=3TD6:AF$="":F0RAB=1T032:R 
EADAC 

1030 AF$=AF$+CHR$(AC):NEXTAB:SPRITE$ 
(AA)=AF$:NEXTAA 

1040 AF*="": F0RAB= 1T032:READAC:AF$=A 
F$+CHR$(AC):NEXTAB:SPRITE$(7)=AF^ 

1050 I FDV=0THEN 1060ELSE1070 
1060 P=CINT (RND (1) HcD+1) : D=CINT (RND (1 
)#D+1):IF0>PTHEN1060ELSE1080 
1070 F-DD:Q=CINT(RND(1)*DD+1) 

1080 IFQ=Q10R0=Q20R0=030RQ=Q4THEN105 
0ELSER=P-O:04=03:03=02:02=01:01=0 
1090 PRESET(217,70):PRINT#1,P:IFLEN( 
STR$(P))=2THEN1110 

1100 PRESET(9,10):PRINT#1,"In de bus 
:"P:G0T01120 

1110 PRESET(9,10):PRINT#1,"In de bus 

■ lip 
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1120 G0SUB2510:GOSUB2560 
1130 C0L0R8:PSET(162,135):C0L0R15:PR 
INT#1, " "Q: IFLEN(STRf (O) ) =2THEN1150 
1140 PRESET (9,20): COLOR1: PR I NT# 1, •• 
Beneden:"Q:GOTO1160 

1150 PRESET(9,20):COLOR1:PRINT#1," 
Beneden: "O 

1160 PRESET(9,35):PRINT#1,"Hoeveel z 
itten er BOVEN?" 

1170 DEFUSR1=342:U=USR1(0) 

1180 F'RESET (210, 35) : AY=LEN (STRf (R) )- 
1: GOSUB2640:IFBf=""THEN1180 
1190 S=VAL(B$):IFS=RTHENGOSÜB2730:PU 
TSPRITE19, (10,10),0,6:PUTSPRITE20, (1 
0, 10) ,0,6:NEXTCL:6OTO1240ELSEGOSUB30 
20 

1200 PRESET(9,10):COLOR10:PRINT#1,"■ 


: PRESET (9,20): PR I NT# 1, " ■■■■■■■■■■ 
■" : PRESET (9, 40) : PR I NT# 1, " 

1210 PRESET(216,70):C0L0R15:PRINT#1, 
" ■I"5 COLOR8:PSÈT(162,135):C0L0R4:PR 
INT#1, " ■■": COLOR 1 

1220 FORAA=0TO7:PUTSPRITEAA,(AA,AA), 
0,1:NEXTAA 
1230 NEXTCL 

1240 CLS: SCREEN0 :COLOR15,4,4:D$(BL)= 
Cf:CU(BL)=CT:LOCATE5,3:PRINT"Di t was 
het, "Cf".":L0CATE5 j 7:PRINT"Je hebt 
het"CT"keer goed gedaan.":L0CATE5,1 
1:PRINT"Tot ziens.":L0CATE5,18 
1250 IFBL=BTHENPRINT"Roep jé leerkra 
cht.":GOTO1270 

1260 F'RINT"Je mag nu de volgende roe 
pen. " 

1270 FORAA=1TO1000:NEXT:L0CATE5,21:P 
RINT"Druk op SELECT." 

1280 DEFUSR1=342:U=USR1(0) 

1290 AAf=INKEYf:IFAAf=CHRf(24)THENNE 

XTBLELSE1290 

1300 •* 

1310 •’ #** Einde 

1320 •’ LET OP: Het codewoord is 

’uitslag *. 

1330 ’ 

1340 SCREEN0 :COLOR15,4,4:L0CATE5,10: 
PRINT"Tik het code-wöord." 

1350 POKE&HFCAB, &H0: OUT 170,1 NP (170)0 
R64 

1360 AAf=INKEYf:IF A Af="u"THEN1370ELS 
El 360 

1370 COLOR0:LINEINPUTAAf:IFAA*="itsl 
ag"THEN1380ELSE1340 

1380 CLS:C0L0R15:PRINT"naam"TAB(15)" 
aantal":PRINTTAB(15)"goed"sPRINT 
1390 F0RBL=1T0B 


1400 PRINTDf(BL)TAB(17)CU(BL):NEXTBL 
1410 F0RAA=ITO1000:NEXT 
1420 L0CATE23,10:PRINT"****** 
******** 

1430 L0CATE23,11:PRINT"* 

*" 

1440 LOCATE23, 12: PRINT"* Gezien'? 

*" 

1450 L0CATE23,13:PRINT”* 

*" 

1460 L0CATE23,14:PRINT"* Druk dan 

*" 

1470 LOCATE23,15:PRINT"* 

*" 

1480 L0CATE23,16:PRINT"* op SELECT 

*" 

1490 L0CATE23,17:PRINT"* 

*" 

1500 LOCATE23,18:PRINT"****♦* 
**♦****" 

1510 DEFUSR1=342:U=USR1(0) 

1520 AAf=INKEYf:IFAAf=CHRf(24)THEN15 
30ELSE1520 

1530 CLS: L0CATE4,4: F'RINT"Wi 11 u de u 
itslag":PRINT:PRINT" nog eens zie 

n? (j/n)" 

1540 DEFUSR1=342:U=USR1(0) 

1550 AAf=INKEYf:IFAAf="j"ORAAf="J"TH 
EN1380ELSEIFAAf="n"ORAAf="N"THEN1560 
ELSEI550 

1560 L0CATE4,12:PRINT"Wi1t U nog mee 
r kinderen met":PRINT:PRINT" dit 
programma laten werken? (j/n)" 

1570 DEFUSR1=342:U=USR1(0) 

1580 AAf=1NKEYf: IFAAf=" j "0RAAf=" J "TH 
ENCLEAR2000:GOSUB90:GOTO330ELSEIFAAf 
="n"ORAAf="N"THEN1620ELSE1580 
1590 » 

1600 ? ### Reset 

1610 •’ 

1620 DEFUSR=0 :PRINTUSR(0) 

1630 * 

1640 ' *** Invoer-routine inleiding 
1650 •’ 

1660 Bf="":AZ=1:PRINTSTRINGf(AY,32)S 
TRINGf(AY,29); 

1670 AZf=ÏNPUTf(1):IFAZf=CHRf(13)THE 
NPRINTSPACEf(AY~LEN(Bf)):RETURNELSEI 
FAZf=CHRf(8)ORAZf=CHRf(29)THEN1690 
1680 IFAZ f <CHRf(48)ORAZ f >CHRf(57)THE 
NI 670 

1690 IFAZf=CHRf(8)ORAZf=CHRf(29)THEN 

AZ=AZ-1:IFAZ=0THENAZ=1:GOTO1670ELSEB 

f=LEFTf(Bf,AZ-1):PRINTCHRf(29)" "CHR 

f(29)::GOTO1670 

1700 ÏFAZ=AY+1THEN1670 

1710 PRINTAZf;:AZ=AZ+1:Bf=Bf+AZf:GOT 

01670 

1720 ' 

1730 ? *** Invoer-routine naam 
1740 ? 

1750 Cf="":KEY6,CHRf(237):AZ=1:PRINT 
STRINGf(12,46)STRINGf(12, 29) ; 

1760 AZf=ÏNPUTf(1):IFAZf=CHRf(237)TH 
EN1340ELSEIFAZf=CHRf(13)THENPRINTSPA 
CEf<12-LEN(Cf)):RETURNELSEIFAZ$=CHR$ 
(8)ORAZf=CHRf(29)THEN1780 
1770 IFAZf <CHRf(32 > ORAZ f>CHRf(32)AND 
AZ f <CHRf(45)ORAZ * >CHRf(45)ANDAZf<CHR 
*(65)ORAZ f>CHRf(90)ANDAZ f <CHRf(97)OR 
AZf>CHRf(122)THEN1760 

1780 IFAZf=CHRf(8)ORAZf=CHRf(29)THEN 
AZ=AZ—1:IFAZ=0THENAZ=1:GOTOl760ELSEC 
f=LEFTf(Cf,AZ-1):PRINTCHRf(29)"."CHR 
f (29)?:GOTO1760 
1790 ÏFAZ=13THEN1760 

1800 PRINTAZf::AZ=AZ + 1:Cf=Cf+AZf: GOT 
01760 
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1810 7 

1820 7 ### Bus tekenen 
1830 7 

1840 PSET(20,170)!DRAW"C6R25”!CIRCLE 
<61,171),17,8,.1,3,.9:PSET(77,170):D 
RAW"C6R80": CIRCLÈ(173,171),17,8, .1,3 
, .9:PSET(1B9, 170) :DRAW"C6R7» 

1850 PSET (20, 169) : DRAW"CBR25" : PSET (7 
7,169)!DRAW”C8RB0":PSET(189,169)sDRA 
W"CBR7" 

1860 CIRCLE(61,171),12,1,,,1.4:CIRCL 
E(173,171),12,1,,,1.4:ClRCLE(61,171) 
,9,1,,,1.4:PAÏNT(61,171),1:CIRCLE<17 
3,171),9,1,,,1.4:PAÏNT(173,171) , 1 
1870 PSEt(20,170):DRAW"CBU97":L ï NE(2 
0,120)-(190,115),8,B:F0RAA=116TD119: 
LÏNE(20,AA)-(190,AA),12:NEXTAA:PSET( 

39.114) ' 

1880 PSET < 20,73):DRAW"C8R1U1R1U1R1U1 
R1U1R1U1R1U1R1UR148":LINE(175,67)-(1 

90.114) ,8:LINE(190,119)-(197,170) ,8 
1890 PAÏNT(30,114),B:LINE(40,114)-(1 
68,104),15,BF: PAÏNT(30,121) ,B 

1900 F0RAA=35T0140STEP35:LINE(AA,97) 

— <AA+30,77),14,BF:NEXTAA 

1910 F0RAA=25TÖ130STEP35:LINE(AA,130 

)-(AA+30,150),14,BF:NEXTAA 

1920 LINÈ(191,125)—(194,145),4:DRAW" 

C4L10U20R7":PAINT(1B8,135),4:LINE(17 

0,125)-(184,155),4,BF' 

1930 PSET (197, 165):DRAW"C1U5R1D5L1 " : 
PSET(19,165):DRAW"ClU5L1D5R1" 

1940 7 

1950 * ### Haltepaal tekenen 
1960 7 

1970 LINE(228,80)-(230,191),12,BF:LI 
NE(218,60)-(240,B0),15,BF 
1980 RETURN 
1990 7 

2000 7 data hoofd naar rechts 

2010 ’ 

2020 DATA3,15,31,29,63,63,63,63 
2030 DATA3Ï,14,14,15,31,31,63,63 
2040 DATA0,128,128,224,224,128,0,128 
2050 DATA128,0,0,0,0,128,192, 192' 
2060 7 

2070 7 data hoofd naar links 

2080 7 

2090 DATA0,1,1,7,7,1,0,1 

2100 DATA1,0,0,0,0, 1,3,3 

2110 DATA192i 240^ 248 \ 184,252,252,252 

,252 

2120 DATA248,112,112,240,248,248,252 

,252 

2130 7 

2140 7 data vlag groot rechts 

2150 7 

2160 DATA0, 14,4,7,7,7,7,7 

2170 DATA6,4,4,4,4,4,4,4 

2180 DATA8,60,248,252,254,252,224,12 

8 

2190 DATA0, 0,0,0,0,0,0,0 
2200 7 

2210 7 data vlag klein rechts 

2220 7 

2230 DATA0, 14,4,6,7,7,7,6 
2240 DATA4,4,4,4,4,4,4,4 
2250 DATA0, 0,88,240,224,128,0,0 
2260 DATA0,0,0,0,0,0,0,0 
2270 - 

2280 7 ### data vlag klein links 

2290 7 

2300 DATA0, 0,26,15,7,1,0,0 

2310 DATA0,0i0,0,0,0,0,0 

2320 DATA0,112,32,96,224,224,224,96 

2330 DATA32, 32,32', 32 i 32,32,32, 32' 

2340 7 

2350 7 ### data vlag groot links 


2360 7 

2370 DATA16,60,31,63,127,63,7,1 

23B0 DATA0,0,0,0,0,0,0,0 

2390 DATA0,112,32,224,224,224,224,22 

4 

2400 DATA96,32,32,32,32,32,32,32 
2410 * 

2420 7 *** data zonne-gordijntje 
2430 7 

2440 DATA255,255,255,255,255,255,255 
,255 

2450 DATA255,255,255,255,255,255,255 
,255 

2460 DATA255,255,255,255,255,255,255 
, 255 

2470 DATA255,255,255,255,255,255,255 

,255 

2480 7 

2490 7 ### Plaatsen hoofden 
2500 7 

2510 I FQ=0THENRETURN 

2520 PUTSPRITE11,(95,134),12,1:IFD=1 
THENRETURN 

2530 PUTSPRITE12,(111,134),13,2:IFQ= 
2THENRETURN 

2540 PUTSPRITE13,(130,134),4,1:IFQ=3 
THENRETURN 

2550 PUTSPRITE14,(40,134),1,2:RETURN 
2560 I FR=0THENRETURN 

2570 PUTSPRITE15,(70,81>,4,1:IFR=1TH 
ENRETURN 

2580 PUTSPRITE16,(47,81),6,2:IFR=2TH 
ENRETURN 

2590 PUTSPRITE17,(119,BI),2,2:IFR=3T 
HENRETURN 

2600 PUTSPRITE1B,(140,BI),1,1:RETURN 
2610 7 

2620 7 Invoer-routine uitkomst 

2630 7 


2640 B*="":AZ=1 

2650 AZ*=INPUT*<1):IFAZ*=CHR*(13)THE 
NRETURNELSEIFAZ*=CHR*(8)ORAZ*=CHR* <2 
9 > THENB*="":PRESET(210,35):COLOR10:P 
RI NT# 1, " Hl” : PRESET (210!, 35) : COLOR1: GO 
TO2640 

2660 IFAZ *<CHR*(48)ORAZ * >CHR*(57)THE 
N2Ó50 

2670 IFAZ*=CHR*(8)ORAZ*=CHR*(29)THEN 

AZ=AZ-1:IFAZ=0THENAZ=1:GOTO2650ELSEB 

*=LEFT*(B*,AZ-1):PRINT#1,CHR*(29)" " 

CHR*(29);:GOTO2650 

2680 IFAZ=AY+1THEN2650 

2690 F'RINT# 1, AZ*: : AZ=AZ + 1: B*=B*+AZ*: 

GOTO2650 

2700 7 

2710 7 ### Subroutine goed 
2720 7 


2730 PUTSPRITE19,(22,50),12,3 
2740 PUTSPRITE20,(170,50),12,3 
2750 PSET(45,106):COLOR15:PRINT#1,"■ 
■■■■■■■■■■" : COLOR 15: PSET (45, 106) 

:COLOR1:PRINT#1,"GOED goed GOED " 
2760 PUTSPRITE19,(22,50),12,4 
2770 PRESET(9,10):COLOR10:PRINT#1,"■ 
:PRESET(9,20):PRINT#1, 
I" : PRESET (9, 35) : PR I NT# 1 


2780 PUTSPRITE20,(170,50),12,4 
2790 PUTSPRITE19,(17,50),12,5 
2800 PUTSPR ITE20, ( i-65, 50) , 12, 5 
2810 PRESET (216, 70) : CÖL.ORÏ5: PRINT#1, 
" ■i":COLOR8:PSÈT(162,135) :C0L0R4:PR 
INT#1, " ■" : COLOR 1 
2820 PUTSPRITE19,(17,50),12,6 
2830 PUTSPRITE20,(165,50),12,6 
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2840 F0RAA=11T018:PUTSPRITEAA,(AA,AA 
),0,1:NEXTAA 
2850 CT=CT+1 
2860 IFCM=1THENPLAY"S8M2000T150L8D5E 
CD4G05C.Dl6C”:GOTO2960 
2870 IFCM=2THENPLAY"S8M1500T150L8O5E 
C04G05C.D16C":GOTD2960 
2880 I FCM=3THENPLAY "B8li 1100T150LBO5E 
CD4G05C. D16C '*: GOTO2960 
2B90 IFCM=4THENPLAY"B8M900T150L8O5EC 
04GD5C.D16C":GÜTD2960 
2900 IFCM=5THENPLAY"SBM700T150L8O5EC 
04GÜ5C.D16C":GOTO2960 
2910 IFCM=6THENPLAY"S8M500T150LBO5EC 
04G05C.D16C":GOTO2960 
2920 IFCM=7THENPLAY"S8M300T150L8O5EC 
04G05C.D16C":GDTO2960 
2930 IFCM=8THENPLAY"S9M2000T150L8O5E 
C04G05C.D16C":GOTO2960 
2940 IFCH=9THENPLAY"S9M1000T150L8D5E 
C04G05C.D16C":GOTD2960 
2950 CM=1 ï GOTD2860 
2960 CM=CM+1:FDRAA=1T03:FDRAB=3T04:P 
UTSPRITE19,(22,50),12,AB:FORAC=1TO50 
:NEXTAC,AB:F0RAB=5t06:PUTSPRITE19, (1 
7,50),12,AB:FORAC=1TO50:NEXTAC,AB, AA 
2970 F0RAA=1T03:F0RAB=3T04:PUTSPRïTE 
20,(170,50),12,AB:FORAC=1TO50:NEXTAC 
,AB:FORAB=5TO6:PUTSPRITE20,(165,50), 

12,AB:FORAC=1TO50:NE X TAC,AB,AA 
2980 PSET (4 5, 106) : C0L0R15: PRINT#1, *’■ 
■HMMRHH' 1 : RETURN 
2990 ’ 

3000 r Subroutine -fout 

3010 ’ 

3020 F0RAA=1ITO18:PUTSPRITEAA,(AA,AA 
>,0,1:NEXTAA 

3030 PUTSPRITE0, (43,76),1 
3040 PUTSPRITE1,(78,76),1 
3050 PUTSPRITE2,(113,76),1,7 
3060 PUTBPRITE3;(148,76),1,7 
3070 PUTSPRITE4,(33,129),1i7 
3080 PUTSPRITE5,(68,129),1,7 
3090 PUTSPRITE6, (103, 1 29 j,1,7 
3100 PUTSPRITE7,(138,129),1,7 
3110 PSET(45,1 06):COLOR15:PRINT#1, "■ 
IBMHmHBB" : COLOR 1: PRESET (45,106 
):PRINT#1," FOUT 

3120 PRESET(9,10):COLOR10:PRINT#1,"■ 
I" : PRESET (9, 20) : PR1NT#1, 
■” : PRESET (9, 35) : PR I NT# 1 


,7 
,7 


■1":COLOR1 

3130 PRESET(9,10):PRINT#1,"In de bus 
:"P" Beneden:"Q 

3140 PRESET(9,20):PRINT#1,”BOVEN:"R 
3150 PRESET (9,40) : PRINT#1, P ,, -"Q" = ,, R" 
®6 "Q " + "R" = "P 
3160 FORAA=1TO2000:NEXT 
3170 PSET( 45,106):COLOR15:PRINT#1,”■ 
":COLOR1 

DEFUSR1=342:U=USR1(0) 


3180 

3190 


PRESET(63,58):PRINT#1,"DRUK OP 


SELECT”:PRESET(63,185):PRINT#1,"DRUK 
OP SELECT" 

3200 FORAA=1TO100:AA$=INKEY$:IFAA$=C 
HR$(24)THEN3220ELSENEXT 
3210 PRESET(63,58):COLOR10:PRINT#1," 
I" : PRESET (63,185): PR I NT 
I" : COLOR 1:G0T03190 
PRE SET(63,58):COLOR10:PRINT#1," 
I" : PRESET (63, 185) : PRINT 
:COLORi:RETURN 


# 1 , 

3220 

#1 

3230 
3240 
3250 •’ 
3260 ’ 
3270 


CONTROLETELLIN6 
Regel: 10 - 58 
Regel: 20 - 58 
Regel; 30 - 58 
Regel: 40 - 58 
Regel: 50 - 58 
Regel: 60 - 58 

Regel: 70 - 58 
Regel: 80 - 55 
Regel: 90 - 26 
Regel: 100 - 57 
Regel: 110 - 177 
Regel: 120 - 142 
Regel: 130 - 58 
Regel: 140 - 58 
Regel: 150 - 58 
Regel: 160 - 180 
Regel; 170 - 223 
Regel: 180 - 94 
Regel: 190 - 14 
Regel: 200 - 247 
Regel: 210 - 46 
Regel: 220 - 61 
Regel: 230 - 169 
Regel: 240 - 71 
Regel: 250 - 246 
Regel: 260 - 36 
Regel: 270 - 181 
Regel: 280 - 250 
Regel: 290 - 16 
Regel: 300 - 58 
Regel: 310 - 58 
Regel: 320 - 58 
Regel: 330 - 70 
Regel: 340 - 55 
Regel: 350 - 169 
Regel: 360 - 42 
Regel: 370 - 183 
Regel: 380 - 62 
Regel: 390 - 51 
Regel: 400 - 213 
Regel: 410 - 137 
Regel: 420 - 89 
Regel: 430 - 60 
Regel: 440 - 115 
Regel: 450 - 241 
Regel: 460 - 195 
Regel: 470 - 168 
Regel: 480 - 161 
Regel: 490 - 210 
Regel: 500 - 235 
Regel: 510 - 4 

Regel: 520 - 19 
Regel: 530 - 139 
Regel: 540 - 144 
Regel: 550 - 84 
Regel: 560 - 181 
Regel: 570 - 90 
Regel: 580 - 37 
Regel: 590 - 62 
Regel: 600 - 150 
Regel: 610 - 183 
Regel: 620 - BB 
Regel: 630 - 216 
Regel: 640 - 166 
Regel: 650 - 109 
Regel: 660 - 183 
Regel: 670 - 33 
Regel: 680 - 58 
Regel; 690 - 58 
Regel: 700 - 58 
Regel: 710 - 201 
Regel: 720 - 22 
Regel: 730 - 29 
Regel: 740 - 183 
Regel: 750 - 39 
Regel: 760 - 215 
Regel: 770 - 224 
Regel: 7B0 - 250 
Regel: 790 - 121 
Regel: 800 - 162 
Regel: 810 - 249 
Regel: 820 - 1B3 
Regel: 830 - 218 
Regel: 840 - 127 
Regel: 850 - 50 
Regel: 860 - 210 
Regel: 870 - 46 
Regel: 8B0 - 18 
Regel: 890 - 53 


Regel: 

900 - 

• 96 

Regel: 

910 - 

- BI 

Regel: 

920 - 

101 

Regel; 

930 - 

223 

Regel: 

940 - 

164 

Regel: 

950 - 

223 

Regel: 

960 - 

222 

Regel: 

970 - 

179 

Regel: 

980 - 

101 

Regel: 

990 - 

190 

Regel: 

1000 - 

B5 

Regel: 

1010 - 

• 177 

Regel: 

1020 - 

156 

Regel: 

1030 - 

177 

Regel: 

1040 - 

173 

Regel: 

1050 - 

80 

Regel: 

1060 - 

102 

Regel: 

1070 - 

151 

Regel: 

1080 - 

191 

Regel: 

1090 - 

23 

Regel: 

1100 - 

172 

Regel: 

1110 - 

151 

Regel: 

1120 - 

BI 

Regel: 

1130 - 

211 

Regel: 

1140 - 

207 

Regel: 

1150 - 

146 

Regel: 

1160 - 

82 

Regel: 

1170 - 

183 

Regel: 

1180 - 

70 

Regel: 

1190 - 

183 

Regel: 

1200 - 

231 

Regel: 

1210 - 

221 

Regel: 

1220 - 

146 

Regel: 

1230 - 

18 

Regel: 

1240 - 

186 

Regel: 

1250 - 

IBS 

Regel: 

1260 - 

16 

Regel: 

1270 - 

204 

Regel: 

1280 - 

183 

Regel: 

1290 - 

203 

Regel: 

1300 - 

58 

Regel: 

1310 - 

58 

Regel: 

1320 - 

58 

Regel: 

1330 - 

58 

Regel: 

1340 - 

179 

Regel: 

1350 - 

29 

Regel: 

1360 - 

25 

Regel; 

1370 - 

127 

Regel: 

1380 - 

210 

Regel: 

1390 - 

44 

Regel: 

1400 - 

190 

Regel: 

1410 - 

162 

Regel: 

1420 - 

98 

Regel: 

1430 - 

B3 

Regel: 

1440 - 

21 

Regel: 

1450 - 

B5 

Regel: 

1460 - 

63 

Regel: 

1470 - 

87 

Regel: 

1480 - 

247 

Regel: 

1490 - 

89 

Regel: 

1500 - 

106 

Regel: 

1510 - 

183 

Regel: 

1520 - 

173 

Regel: 

1530 - 

67 

Regel: 

1540 - 

1B3 

Regel: 

1550 - 

194 

Regel: 

1560 - 

115 

Regel: 

1570 - 

183 

Regel: 

1580 - 

117 

Regel: 

1590 - 

58 

Regel: 

1600 - 

58 

Regel: 

1610 - 

58 

Regel: 

1620 - 

126 

Regel: 

1630 - 

58 

Regel: 

1640 - 

58 

Regel: 

1650 - 

58 

Regel: 

1660 - 

196 

Regel: 

1670 - 

113 

Regel: 

1680 - 

165 

Regel: 

1690 - 

66 

Regel: 

1700 - 

38 

Regel: 

1710 - 

239 

Regel: 

1720 - 

58 

Regel: 

1730 - 

58 

Regel: 

1740 - 

58 

Regel: 

1750 - 

0 

Regel: 

1760 - 

108 

Regel: 

1770 - 

63 

Regel: 

17B0 - 

6 

Regel: 

1790 - : 

255 


Regel: 1800 - 75 
Regel: 1810 - 58 
Regel: 1820 - 58 
Regel: 1830 - 58 
Regel: 1840 - 42 
Regel: 1B50 - 197 
Regel: 1B60 - BB 
Regel: 1B70 - 166 
Regel: 18B0 - 224 
Regel: 1890 - BB 
Regel: 1900 - 166 
Regel: 1910 - 252 
Regel: 1920 - 223 
Regel: 1930 - 124 
Regel: 1940 - 58 
Regel: 1950 - 58 
Regel: 1960 - 58 
Regel: 1970 - 16 
Regel: 19B0 - 142 
Regel: 1990 - 58 
Regel: 2000 - 58 
Regel: 2010 - 58 
Regel: 2020 - 196 
Regel: 2030 - 230 
Regel: 2040 - 180 
Regel: 2050 - 230 
Regel: 2060 - 58 
Regel: 2070 - 58 
Regel: 20B0 - 58 
Regel: 2090 - 74 
Regel: 2100 - 64 
Regel: 2110 - 137 
Regel: 2120 - 130 
Regel: 2130 - 58 
Regel: 2140 - 5B 
Regel: 2150 - 58 
Regel: 2160 - 148 
Regel: 2170 - 90 
Regel: 2180 - 244 
Regel: 2190 - 56 
Regel: 2200 - 5B 
Regel: 2210 - 58 
Regel: 2220 - 58 
Regel: 2230 - 146 
Regel: 2240 - BB 
Regel: 2250 - 177 
Regel: 2260 - 56 
Regel: 2270 - 58 
Regel: 2280 - 58 
Regel: 2290 - 58 
Regel: 2300 - 174 
Regel: 2310 - 56 
Regel: 2320 - 135 
Regel: 2330 - 224 
Regel: 2340 - 58 
Regel: 2it>ü - 58 
Regel: 2360 - 58 
Regel: 2370 - 189 
Regel: 2380 - 56 
Regel: 2390 - 217 
Regel: 2400 - 234 
Regel: 2410 - 58 
Regel: 2420 - 58 
Regel: 2430 - 58 
Regel: 2440 - 152 
Regel: 2450 - 152 
Regel: 2460 - 152 
Regel: 2470 - 152 
Regel: 2480 - 58 
Regel: 2490 - 58 
Regel: 2500 - 58 
Regel: 2510 - 68 
Regel: 2520 - 68 
Regel: 2530 - 88 
Regel: 2540 - 101 
Regel: 2550 - 81 
Regel: 2560 - 69 
Regel: 2570 - 245 
Regel: 2580 - 227 
Regel: 2590 - 41 
Regel: 2600 - 131 
Regel: 2610 - 58 
Regel: 2620 - 58 
Regel: 2630 - 58 
Regel: 2640 - 111 
Regel: 2650 - BB 
Regel: 2660 - 125 
Regel: 2670 - 83 
Regel: 2680 - 254 
Regel: 2690 - 40 


16 







Regel: 2700 - 
Regel: 2710 - 
Regel: 2720 - 
Regel; 2730 - 
Regel: 2740 - 
Regel: 2750 - 
Regel: 2760 - 
Regel: 2770 - 
Regel: 2780 - 
Regel: 2790 - 
Regel: 2800 


58 

58 

58 

50 

199 
71 

51 
53 

200 
47 
196 


Regel: 2900 - 
Regel: 2910 - 


Regel: 2920 - 255 


Regel: 2810 - 221 


Regel: 2930 
Regel: 2940 
Regel: 2950 
Regel: 2960 
Regel: 2970 
Regel: 2980 
Regel: 2990 
Regel 


3000 


Regel: 2820 
Regel: 2830 - 
Regel: 2840 - 
Regel: 2850 - 
Regel: 2860 - 
Regel: 2870 - 
Regel: 28B0 - 
Regel: 2890 - 


48 

197 

164 

32 

40 

45 

42 

2 


48 
48 
153 
151 
117 
22 
58 
58 

Regel: 3010 - 58 
Regel: 3020 - 164 
Regel: 3030 - 75 
Regel: 3040 - 111 
Regel: 3050 - 147 
Regel: 3060 - 183 
Regel: 3070 - 122 
Regel: 3080 - 158 
Regel: 3090 - 194 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Totaal: 


3100 - 230 
3110 - 148 
3120 - 62 
3130 - B7 
3140 - 243 
3150 - 142 
3160 - 142 
3170 - 87 
3180 - 163 
3190 - 241 
3200 - 89 
3210 - 167 
3220 - 28 
3230 - 58 
3240 - 5B 
3250 - 58 
3260 - 58 
3270 - 58 
37099 



CASSETTES 


De programma s uit de MSX-Gids zijn ook op cassette 
leverbaar. 

Cassette nr. 3 bevat alle programma's van Gids nr. 3 
plus een complete 'STUNTVOGEL' waarin de velden 
7, 8 en 9 zijn opgenomen. 

Cassette nr. 4 bevat alle programma's uit de MSX-Gids 
nr. 4, cassette nr. 5 uit Gids nr. 5, enz., enz. 

De cassettes kosten f 15.— per stuk (incl. verzend¬ 
kosten). 

Voor België is de prijs Bfr. 280,—. 

Giro: 909515 t.n.v. A. Debels, Amsterdam. 

Voor België: Rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasselt t.n.v. J. Herps, Amsterdam. 

Vergeet bij de bestelling niet het nummer te vermelden ! 

HAAST? . . . Haal de cassette dan zelf bij: MSX SOFT- 
SHOP, Vespuccistraat 48, 1056 SM Amsterdam. Bij de 
Softshop is ALLEEN DE LAATSTE cassette verkrijg¬ 
baar ! ! ! 



DISKETTES 


De programma's uit de MSX Gids zijn ook op diskette 
leverbaar. 


Er zijn alleen 80-track diskettes verkrijgbaar; formaat 
3.5 en 5.25. 

40-track is niet leverbaar I 


Diskette nr. 1. bevat de belangrijkste programma's van 
MSX-Gids 1 t/m 3. Een verzameldiskette dus. 

Diskette nr. 4 bevat alle programma's uit de MSX-Gids 
nr. 4, diskette nr. 5 uit MSX Gids nr. 5, enz., enz. 

De diskettes starten automatisch op en zijn geheel menu- 
gestuurd met diverse keuze mogelijkheden en schermen. 
Alles in hi-res graphics. D.m.v. een letter-keuze-menu 
kunnen de programma s geladen of opgestart worden. 

Het menu bevat ook een overzichts programma, dat ge¬ 
schikt is voor twee drives en verder zijn er nog enige in¬ 
formatie- en advertentiepagina's op de diskette aanwezig. 

De 3.5. diskettes kosten f 25,— p. st. en de 5.25 versie 
kost f 1 5.—. 

Deze prijs is incl. verzendkosten (in speciale diskette 
verpakking). 

Bestellen door overmaking op giro 909515 t.n.v. A. Debels 
te Amsterdam. 

Voor België is de prijs Bfr. 470 voor de 3.5 versie en 
Bfr. 280 voor de 5.25 versie, en betalingen kunnen ge¬ 
schieden op rek.nr. 235-0430464-87 bij de Generale 
Bankmij. te Hasselt t.n.v. J. Herps, postbus 10252, 1001 
EF Amsterdam. 

Vergeet niet het nummer van de diskette te ver¬ 

melden !! ! 

***** NOGMAALS: ALLEEN 80 TRACK DISKETTES 

***** Inl.: Tel. 020 - 320807 

(tussen 12.00 uur en 20.00 uur) 


S4tuim 
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GEHEUGEN INDELING 


HET GEHEUGEN IN UW MSX COMPUTER 

Als auteur van het MSX I&II machinetaal” 
handboek ,r MSX verder uitgediept" en 
Truuks en tips deel 3,4 en 6 kom ik veel 
in aanraking met MSX gebruikers. Een veel” 
gehoorde klacht is de schaarse informatie 
die beschikbaar is over de geheugeninde- 
ling van de MSX computers. Daarom volgt 
hier een uitgebreid verhaal over alles, 
dat met het geheugen in uw MSX te maken 
heeft. Ook MSX-II bezitters komen uitge- 
breid aan bod. 


MSX”I 

Het RAM geheugen 

MSX computers hebben meestal de beschik¬ 
king over 64K RAM geheugen met daarnaast 
16K RAM voor de beeldopbouw (Video RAM). 
De 64K RAM is het maximum, dat de Z80 in 
uw MSX computer maximaal kan adresseren. 
De extra 16K Video RAM wordt dan ook vol” 
ledig toebedeeld aan de TMS 9929 Video 
processor. 


Het ROM geheugen 

Een computer met slechts een RAM geheugen 
is als een mens zonder hersenen. Daarom 
wordt er d.m.v. een 32K groot ROM geheugen 
de nodige intelligentie aan de MSX range 
van computers toegevoegd. Dit ROM geheugen 
bevat alle intelligentie om uw computer en 
randapparatuur te besturen. 


MSX-TI 

Het RAM geheugen 

Bij. de MSX-II range is het RAM geheugen 
minimaal 64K groot, maar ook geheugens 
groter dan 64K RAM zijn geen uitzondering 
(VG 8235 van Philips met 128K). Het Video 
geheugen moet volgens de MSX-II standaard 
minimaal 64 k bedragen. Hierdoor is het dan 
mogelijk om gebruik te maken van de 
schermmodes 0 t/m 6. In de praktijk komen 
echter alleen MSX-II computers met 128K 
Video RAM op de markt. Dit heeft als ge¬ 
volg, dat de huidige machines in staat 
zijn om te werken met 512 kleuren, waarvan 
er maximaal 256 tegelijkertijd op het 
scherm kunnen worden gebracht. 


Het ROM geheugen 

Het ROM geheugen bij een MSX—II machine is 
minimaal 48K groot. De eerste 32K zijn 
compatible met de 32K, die zich in de MSX- 
I reeks van computers bevindt. De andere 
16K wordt het SUB-ROM genoemd en bevindt 
zich^ naast het overige ROM geheugen "er¬ 
gens' in de computer. De SUB-ROM bevat 


alle extra instruktie die MSX-II nodig 
heeft om alle extra mogelijkheden te kun¬ 
nen benutten. Naast de 48K minimum ROM 
bevindt er zich nog 16K ROM als er een 
diskdrive is ingebouwd en 8K voor een 
eventuelel.RS232 interface. Bovendien is 
elke fabrikant vrij om extra firmware in 
zijn/haar MSX computer in te bouwen in de 
vorm van ROM. 


DE Z80A MICROPROCESSOR 

De microprocessor in uw MSX is door zijn 8 
bits structuur slechts in staat om 64K 
geheugen ROM/RAM in een keer te adresse¬ 
ren. Maximaal 64K adresseren wil zeggen, 
dat de Z80A maar 64K tegelijkertijd kan 
zien . Om toch gebruik te kunnen maken 
van bijvoorbeeld 128K RAM en 64K ROM, 
moeten er speciale truuks worden toege¬ 
past. De truuk die uw MSX hiervoor ge¬ 
bruikt is bankswitching. Het geheugen is 
daarom ingedeeld in 4 slots, die elk 
kunnen worden uitgebreid met 4 extra SUB- 
slots. Elk (sub-)slot is verdeeld in 4 
pages. Hieronder vindt u een tekening, 
welke u duidelijk maakt hoe de MSX-slot- 
struktuur in elkaar zit. 


SPECTRAVIDEO X * PRESS MEMORY LAYOUT 



SLOTO 

SLOT 1 

SL0T2 

SLOT3 

&HOOOO 
PAGE 0 

ROM 

RAM 

C 

A 


&H4O00 



R 


PAGE 1 

ROM 

RAM 

T 





... t> 


&H8000 



I 


PAGE 2 


RAM 

D 





R 


&HCOOO 
PAGE 3 


RAM 

E 



RS—232—C 

DISK ROM 





SLOT 3-0 

SLOT 3-1 


Zoals u ziet 
computer, 4 
verdeeld in 4 


zijn er, zoals bij iedere MSX 
primaire slots. Elk slot is 
pages. 
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Page-0 : &hOOOO - &h4000 

Page-1 : &h4000 - &h8000 

Page-2 : &h8000 - &hCOOO 

Page-3 : &hCOOO - &hFFFF 

De BASIC-ROM bevindt zich in slot-0 (zoals 
bij elke MSX-I computer) in page 0 en 1. 
De 64K RAM bevindt zich in slot-1, ver¬ 
deeld over alle vier de pages. Slot-2 
wordt door de X' Press gezien als cartrid- 
ge slot en de inhoud ervan is afhankelijk 
van de door de gebruiker in het slot ge¬ 
plaatste hard/software. 


Incompatibiliteit binnen de MSX-standaard 

Zo is het bijvoorbeeld mogelijk om in het 
cartridge slot een 64K RAM uitbreiding te 
steken. Dit zorgt ervoor, dat slecht ont¬ 
wikkelde MSX programmatuur,die ervan uit 
gaat dat alle 64 k RAM zich in slot—2 be¬ 
vindt, toch op de X' Press functioneert. 
Het is natuurlijk belachelijk dat dit 
soort (dure) noodoplossingen wel eens 
nodig zijn, maar gelukkig komt het met de 
tegenwoordige software steeds minder voor. 


Expanded slots 

Slot-3 is bij de SVI X' Press verdeeld in 
twee secundaire slots. Dat zijn er dus 
twee minder dan het maximale aantal van 
vier. Als het er vier zouden zijn, dan zou 
de verdeling zijn: 

slot 3-0, slot 3-1, slot 3-2 en slot 3-3 

In dit geval zijn echter slechts slot 3-0 
en slot 3-1 gebruikt. Slot 3-0 bevat 8K 
ROM voor RS-232-C besturing in page 1. 
Slot 3-1 bevat 16K ROM in page 1 voor de 
ingebouwde 360K 3.5"-diskdrive. 


Wat moeten we met al deze informatie? 

De BASIC programmeur kan eigenlijk weinig 
doen met alle bovenstaande informatie. Het 
manipuleren met geheugenblokken is eigen¬ 
lijk slechts voorbehouden aan de machine- 
taalprogrammeur. Toch zullen we tevens 
d.m.v. van enkele BASIC voorbeelden zien 
dat ook de BASIC programmeur baat kan 
hebben van een goede kennis van de geheu¬ 
genindeling van zijn/haar computer. 


BIN$ gebruiken we om de 
tie om te zetten in een 
binaire getal bestaat 
enen. Mochten er i.p.v. 
en enen staan, dan moet 
getal een 0 plaatsen, 
juiste informatie wordt 


ingelezen informa- 
binair getal. Dit 
uit 8 nullen en 
acht, zeven nullen 
u voor het binaire 
waarna alsnog de 
gegeven. 


Bij de SVI X' Press zou bovenstaande INP- 
opdracht de volgende uitkomst opleveren! 

01 01 00 00 (ofwel 01010000) 


Ik heb de byte opgesplitst in vier groep¬ 
jes van 2 bits, omdat een slot immers uit 
pages bestaat. De byte geeft op de vol¬ 
gende wijze informatie over het geinitia- 
liseerde geheugen: 


slot: 


01 01 00 00 


page: 


0 


Dus page 0 en page-1 zijn geinitialiseerd 
in slot 0. Dat betekent dat vanaf &h0000 
tot &h8000 de BASIC ROM is ingeschakeld, 
rage z en page 3 bevinden zich in slot 1. 
Dit slot zit geheel vol met RAM. Dat bete- 
kent dat de bovenste helft van het geheu¬ 
gen vol zit met 32K RAM van &h8000 t/m 
&hFFFF. ' 

Bij gebruik van diskinstrukties wordt 
tijdelijk slot 3-1 geactiveerd. Zo ook als 
er gebruik wordt gemaakt van RS-232 in- 
strukties, dan wordt er automatisch ge¬ 
sprongen naar subslot 3-0. 

64K RAM 


? lke MSX computer bevindt zich 
o4K RAM. Dit RAM is voor de machinetaal- 
programmeur te gebruiken middels de 
struktie: 


m- 


0UT &HA8,&B01010101 

Als de machinetaalprogrammeur gebruik wil 
maken van de R0M-BI0S, welke zich bevindt 
in page-0 van slot 0, dan dient hij 
slechts 48K RAM te initialiseren en 16K 
BIOS-ROM. 

Dit gebeurt op de volgende wijze: 

OUT &HA8,&B01010100 


Secundaire slots 


Alle informatie betreffende geheugeninde- 
lingen wordt gestuurd of opgehaald door 
1/0 poort &hA8. D.m.v. van de instruktie 
kunnen we poorten lezen en d.m.v. de 
instruktie kunnen we naar poorten 
schrijven. Dus als we willen weten hoe de 
huidige geheugenindeling is van onze com¬ 
puter , dan doen we dat op de volgende 
wijze: 

PRINT BIN$(INP(&HA8)) 


Bij MSX-I computers bevindt zich eigenlijk 
alleen sporadisch iets in secundaire slots 
(vgl. SVI 738). Bij de MSX-II computers 
bevindt zich echter meestal alles in se¬ 
cundaire slots, dit om ruimte te houden in 
primaire slots voor eventuele uitbreidin¬ 
gen via de cartridge slots. Als voorbeeld 
zullen we nemen de PHILIPS VG 8235 omdat 
deze ook beschikt over 64K RAM bovenop de 
standaard 64K MSX-II RAM, zodat er totaal 
128K RAM+128K Video RAM in deze computer 
zit. De geheugenindeling van de VG 8235 
vindt u hieronder: 
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PHILIPS MSX-II VG8235 MEMORY LAYOUT 


SLOTO SLOT1 SL0T2 SL0T3 


&HOOOO 
PAGE O 

&H4000 
PAGE 1 

&H8O00 
PAGE 2 

«tHCOOO 
PAGE 3 


ROM 


ROM 


C 

-A- 


R 

T 

-R- 


I 

D 

-G- 


C 

-A- 


R 

T 

-R- 


I 

O 

-G- 


«tHOOOO 
PAGE O 

MSX-2 

BASIC 


16K 

RAM 


&H4000 



16K 

DISK 

PAGE 1 



RAM 

BASIC 

&H8000 



16K 


PAGE 2 



RAM 


&HCOOO 



16K 


PAGE 3 



RAM 



SUB 

SUB 

SUB 

SUB 


SLOT 

SLOT 

SLOT 

SLOT 


3-0 

3-1 

3-2 

3-3 


Zoals u ziet zijn slot-O, slot-1 en slot-2 
slechts primair. In slot 0 bevindt zich in 
pages 0 en 1 het 32K MSX-BASIC/BIOS ROM. 
Slot-1 en Slot-2 zijn toegekend aan de 
twee cartridge poorten. Slot—3 is echter 
een speciaal slot. Het is verdeeld in 4 
secundaire slots. Het MSX-II SUB-ROM be¬ 
vindt zich in subslot 3-0 in page 0. In 
subslot 3—1 en subslot 3—2 bevinden zich 8 
blokken van 16K RAM, zodat er zich in 
totaal 128K RAM in deze computer bevindt. 


Dat betekent, dat vanaf ShOOOO tot &h8000 
de 0 ™£ SIC R0M is geinitialiseerd. Vanaf 
&h8000 to &hFFFF is slot-3 geinitiali¬ 
seerd. Binnen slot-3 is het sub-slot/page 
indeling op de volgende wijze tot stand 
gebracht. 

PRINT HEX$(PEEK(&HFFFF))=&H53 =&B01010011 

Van dit getal neemt u nu het inverse (com¬ 
plement), waardoor u kunt zien hoe de 
slots/pages werkelijk zijn ingedeeld. U 
maakt van de nullen enen en van de enen 
nullen. Dus: 

inverse =: &bl0101100 &hAC 

Dat betekent dat binnen slot 3 de volgende 
pages zijn geactiveerd: 

page 0: slot 3-0 
page 1: slot 3-3 
page 2: slot 3-2 
page 3: slot 3-2 

Deze initialisatie kan problemen opleveren 
met commerciële software, omdat deze niet 
'ziet' dat de onderste 32K RAM zich even¬ 
eens in subslot 3-2 bevindt. Door nu op 
adres ShFFFF de informatie te poken die 
aangeeft waar de volledige 64K RAM zich 
bevindt, kunt u er voor zorgen dat vrijwel 
alle software direct functioneert. De 64K 
RAM bevindt zich in subslot 3-2. U dient 
dus de volgende byte te poken: 

&bl0101010 

poke &hFFFF,&hAA 

Als u het getal 'peekt', leest u het in¬ 
verse getal (—complement) uit. De uitkomst 
zal dus zijn: 

PRINT BIN$(PEEK(&HFFFF))=&B01010101 

=&H55 


Systeemvariabelen 

De volgende systeemvariabelen zijn nog van 
belang voor de informatie over expanded 
slots. 


De primaire slots kunnen, met als bij MSX- 
I geswitched worden d.m.v. OUT &HA8 xx 
opdrachten (xx=0 t/m 255). Het switchen 
tussen de verschillende sub—slots gaat 
echter op een andere manier. 

De informatie betreffende de indeling van 
subslots wordt altijd opgeslagen op het 
adres fidiFFFF. De informatie op dit adres 
is precies zo ingedeeld als bij de pri¬ 
maire slots. Het switchen van secundaire 
slots moet met de uiterste voorzichtigheid 
worden uitgevoerd. 

De VG 8235 initialiseert normaliter de 
slots op de volgende wijze: 

PRINT INP(&HA8)=&HF0 =&B11110000 


&hFCCl Primary slot 0 
&hFCC2 Primary slot 1 
&hFCC3 Primary slot 2 
&hFCC4 Primary slot 3 

Deze variabelen zijn normaal 0, maar wor¬ 
den gezet op &h80, als een primair slot is 
uitgebreid met subslots. 

&hFCC5 Primary slot 0 
&hFCC6 Primary slot 1 
&hFCC7 Primary slot 2 
&hFCC8 Primary slot 3 

Deze vier variabelen bevatten alle infor¬ 
matie over de subslots. De variabelen 
hebben alleen betekenis, als de overeen¬ 
komstige bovenste variabelen gelijk zijn 
aan &h80 (dus uitgebreid met subslots). 


20 



















BIOS ROUTINES 


N“st de bovenvermelde methode, is het ook 
mogelijk om via. de BIOS met de slots te 
manipuleren. 


Alleen de drie laagste bits (0-2) zijn van 
belang voor de geheugenblokselectie. Er 
kan meer dan 1 blok aan een page worden 
toegewezen. 


ADRES 000C 

Is een.PEEK opdracht van een willekeurig 
adres in een willekeurig slot mogelijk. 
Registerpaar HL bevat het adres en in de 
accumulator (register-A) staat een byte 
die het slot selecteert. Dit selecteren 
gebeurt op de volgende wijze: 

bit nr.: 76543210 
inhoud : FOOOSSPP 


U kimt zien welk 16K blok is toegewezen 
aan welke page op de volgende wijze: 

PRINT INP(&HFF) AND &B000001110 
PRINT INP(&HFE) AND &B00000111=1 
PRINT INP(&HFD) AND &B00000111=2 
PRINT INP(&HFC) AND &B00000111=3 

Dat betekent dus, dat aan pages 0-3 de 
blokken 3-0 zijn toegewezen. 


PP: 

SS: 

F: 


Welk primaire slot (0-3) 
Welk secundaire slot (0-3) 
0 - geen secundaire slots 
1 - wel secundaire slots 


Tot zover de informatie omtrent het geheu¬ 
gen in uw MSX computer. Mocht u omtrent 
dit onderwerp nog vragen hebben, dan wens 
ik deze graag te horen en zal deze graag 
beantwoorden. 


Het resultaat van de PEEK opdracht komt in 
de accumulator te staan (register-A). 

ADRES 0014 

Is een POKE opdracht naar een adres in een 
willekeurig slot en page. Dit gebeurt op 
dezelfde wijze, als bij de PEEK opdracht, 
met als uitzondering, dat het weg te 
schrijven getal in het E—register dient te 
staan. 

ADRES 0024 

Veroorzaakt het inschakelen van een wil¬ 
lekeurig slot. De accumulator (register-A) 
bevat de informatie over de slots op de¬ 
zelfde wijze als bij de PEEK opdracht. 
Registerpaar HL bevat een adres dat ergens 
ligt in de page die u wilt inschakelen. 


Als laatste zou ik graag aan de mensen met 
een SONY HB500 MSX-II computer de volgende 
tip willen geven. Het laden van een cas- 
setteprogramma geeft vaak problemen. Start 
uw computer op met de SHIFT toets inge¬ 
drukt. Type dan in: 

POKE &hFFFF,&b00001010 

Dit initialiseert alle 64K RAM in slot-0 
welk is uitgebreid middels 3 subslots. De 
RAM zit vanaf &h8000 tot ShFFFF in slot 0 
en van 0000 tot &h8000 in subslot 0-2. 
Ik hoop dat dit hetzelfde effect heeft als 
op de PHILIPS MSX-II, want dan zijn er 
voor de gebruikers van deze computers een 
hoop kopzorgen minder. 


ADRES 0030 (RST 6) 

Veroorzaakt een CALL naar een routine in 
een willekeurig slot. Dit gebeurt op de 
volgende wijze: 

RST 6 
BYTE 1 
BYTE 2 
Next adres 

BYTE 1, bepaalt de slotselectie op dezelf¬ 
de wijze als beschreven bij de PEEK en 
POKE instrukties. 

BYTE 2, bepaalt het adres van de subrou- 
tine. 

Na het doorlopen van de subroutine komt de 
computer aan op de plaats die staat aange¬ 
geven in het voorbeeld als "Next adres”. 


Veel succes, 

Hans Klopper (MSX auteur) 


BIOS-CALL’S 

Voor wie bij het verschijnen van het vo¬ 
rige nummer tevergeefs gezocht heeft naar 
een bespreking van enkele BIOS CALLS 
sorry! Door omstandigheden heb ik mijn 
artikel niet tijdig kunnen inzenden. Maar 
geen nood, hier ben ik weer. 

Ditmaal zal ik het hebben over de BIOS 
CALLS die te maken hebben met de printer, 
het beeldscherm en het toetsenbord. Dat 
wil zeggen de subroutines, die niet in het 
vorige artikel besproken werden. 


128K RAM in de VG 8235 

De 128K RAM is verdeeld over 8 blokken van 
16K. Deze blokken zijn genummerd van 0 t/m 
7. In slot 3-2 kunt u aangeven welke blok¬ 
ken. moeten worden geselecteerd om te ge¬ 
bruiken. Dit moet worden gedaan via de 1/0 
poorten &hFC, &hFD, &hFE en &hFF. 

page 0 : &hFC 
page 1 : &hFD 
page 2 : &hFE 
page 3 : &hFF 


CLS 

Het adres waar deze subroutine aangeroepen 
moet worden is &HC3. De subroutine wist 
het scherm, dat aktief is, dus ook de 
grafische schermen. Voor de MSX2 computers 
betekent dit dat alleen de pagina gewist 
wordt, die aktief is voor input en output. 

INPUT PARAMETERS: deze subroutine zal 
enkel uitgevoerd worden als de Z vlag 
gezet is. Indien deze niet gezet is, ge¬ 
beurt er niets. 
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OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: de registers AF, 
BC en DE kunnen door het uitvoeren van 
deze subroutine in waarde veranderd zijn. 
Indien de subroutine niet uitgevoerd wordt 
(Z vlag niet gezet) blijven bovengenoemde 
registers intakt. 

De geheugenplaatsen CSRX, CSRY en LINTTB 
kunnen eveneens door het uitvoeren van 
deze subroutine veranderd zijn in waarde. 
Deze geheugenplaatsen liggen op de volgen¬ 
de adressen: CSRY=&HF3DC, CSRX=&HF3DD en 
LINTTB=&HFBB2. 

OPMERKING: Door deze subroutine op adres 
&H849 aan te roepen maakt het geen ver¬ 
schil in welke stand de Z vlag staat. Dit 
is echter niet volledig programmeren vol¬ 
gens de MSX standaard. Het kan dus gebeu¬ 
ren dat het niet werkt op alle MSX compu¬ 
ters . 


POSIT 

Het adres waar deze subroutine moet aange¬ 
roepen worden is &HC6. Met deze subroutine 
kan men de cursor in de tekstschermen 
positioneren. 

INPUT PARAMETERS: voor het aanroepen van 
deze subroutine moeten de registers H en L 
gevuld worden met respectievelijk de ge¬ 
wenste X en Y positie van de cursor. 

OUTPUT PARAMETERS: geen van de registers 
wordt door het uitvoeren van deze subrou¬ 
tine in waarde veranderd. De geheugen¬ 
plaatsen CSRX en CSRY worden door het 
uitvoeren van deze subroutine gelijkge¬ 
steld aan de door HL ingegeven waarden. 

STAND VAN DE REGISTERS: enkel het regi- 
sterpaar AF kan door het uitvoeren van 
deze subroutine veranderd worden. Ook de 
geheugenplaatsen CSRX en CSRY kunnen ver¬ 
anderd zijn in waarde. 


FNKSB 

Het adres waar deze subroutine aangeroepen 
moet worden is &HC9. Deze subroutine kijkt 
eerst als het funktietoetsen-display aan¬ 
staat en indien dit het geval is, wordt de 
BIOS CA'LL DSPFNK aangeroepen. Deze BIOS 
CALL wordt verder besproken. 

INPUT PARAMETERS: bij deze subroutine 
worden geen input parameters verwacht. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: de registers AF, 
BC en DE kunnen door het uitvoeren van 
deze subroutine veranderd zijn in waarde. 

OPMERKING: de geheugenplaats, die bepaalt 
of het funktietoetsendisplay aktief is of 
niet, wordt CNSDFG genoemd en is te vinden 


op adres &HF3DE. Indien deze geheugen¬ 
plaats op 0 staat, is het funktietoetsen¬ 
display niet aktief. Indien hij op een 
andere waarde staat, is dit wel het geval. 


ERAFNK 

Het adres waar deze subroutine moet aange¬ 
roepen worden is &HCC. Deze subroutine 
vernietigt het funktietoetsendisplay als 
de computer zich in een van de tekstscher¬ 
men bevindt. 

INPUT PARAMETERS: bij deze subroutine 

worden geen input parameters verwacht. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: de registers AF, 
BC en DE kunnen door het uitvoeren van 
deze subroutine in waarde veranderd zijn. 

DSPFNK 

Het adres waar deze subroutine aangeroepen 
moet worden is &HCF. Deze subroutine 
plaatst de funktietoetseninhoud onderaan 
het scherm en maakt dat het funktietoet¬ 
sendisplay aktief is. 

INPUT PARAMETERS: bij deze subroutine 

worden geen input parameters verwacht. 

OUTPUT PARAMETERS: de geheugenplaats 

CNSDFG wordt op &HFF gezet. 

STAND VAN DE REGISTERS: de registers AF, 
BC en DE kunnen door het uitvoeren van 
deze subroutine in waarde veranderd zijn. 
De geheugenplaats CNSDFG kan eveneens in 
waarde veranderd zijn na het uitvoeren van 
deze subroutine. 


TOTEXT 

Het adres waar deze subroutine aangeroepen 
moet worden is &HD2. Als de computer zich 
in een grafisch scherm bevindt, zal door 
het aanroepen van deze subroutine overge¬ 
schakeld worden naar een tekstscherm. Het 
tekstscherm, waarnaar wordt overgescha¬ 
keld, is normaal het tekstscherm dat het 
laatst aktief is geweest. 

INPUT PARAMETERS: bij deze subroutine zijn 
geen input parameters vereist. Alleen zal 
de geheugenplaats OLDSCR geraadpleegd wor¬ 
den om te kijken naar welk tekstscherm 
overgeschakeld moet worden. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: de registers HL, 
DE, BC en AF kunnen door het uitvoeren van 
deze subroutine in waarde veranderd wor¬ 
den. Ook de geheugenplaatsen SCRMOD, 
NAMBAS, CGPBAS en LINLEN kunnen in waarde 
veranderd zijn. De adressen van deze ge- 
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heugenplaatsen zijn als volgt: 

0LD SCR = &HFCB0, SCRMOD = &HFCAF, NAMBAS = 
&HF922, CGPBAS = &HF924 en LINLEN = &HF3B0 


CHGCAP 


STAND VAN DE REGISTERS: het enige regi¬ 
sterpaar, dat van waarde veranderd kan 
zijn na het uitvoeren van deze subroutine 
is het registerpaar AF. 


Het adres waar deze subroutine aangeroepen 
moet worden is &H132. Met deze subroutine 
kan men het CAPS lampje aan- of uitzetten. 

INPUT PARAMETERS: de accumulator moet op 0 
gezet worden, als men het CAPS lampje uit 
wil zetten. Wil men het CAPS lampje aan— 
zetten, dan mag de accumulator elke waarde 
hebben, die groter is dan nul. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: het enige regi¬ 
sterpaar, dat van waarde veranderd kan 
zijn, is het registerpaar AF. 


SNSMAT 

Het adres waar deze subroutine aangeroepen 
moet worden is &H141, Deze subroutine 
bekijkt een rij van de toetsenbordtabel en 
geeft daarvan de stand. 

INPUT PARAMETERS: het enige register, dat 
als input parameter gebruikt wordt, is de 
accumulator. Deze moet het nummer van de 
lijn bevatten. 


OUTDLP 

Het adres waar deze subroutine aangeroepen 
moet worden is &H14D. Deze subroutine 
stuurt een karakter naar de eventueel 
aangesloten printer. 

INPUT PARAMETERS: de accumulator is de 
enige input parameter en moet de ASCII 
waarde van het te printen karakter bevat¬ 
ten. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 
Indien er echter geen printer aangesloten 
is of de aangesloten printer niet klaar 
staat om te printen, dan zal deze subrou— 
tine met een device 1/0 fout terugkeren 
naar BASIC. 

STAND VAN DE REGISTERS: alleen het vlag 
register kan door het uitvoeren van deze 
subroutine veranderd worden in waarde. 
Indien het echter niet mogelijk is het 
karakter korrekt te laten printen, kan er 
naar gelang de stand van de computer een 
heleboel veranderd zijn. 


OUTPUT PARAMETERS: de accumulator zal na 
het uitvoeren van deze subroutine de stand 
van de ingegeven rij bevatten. Dit wil 
zeggen, dat de accumulator de binaire 
weergave van de ingegeven rij bevat. De 
bits,, die op nul staan, zijn de toetsen 
die niet ingedrukt zijn en de bits, die op 
1 staan, zijn de toetsen die wel ingedrukt 
zijn. 

STAND VAN DE REGISTERS: het enige regi- 
s^erpaar, dat van waarde veranderd kan 
zijn na het uitvoeren van deze subroutine, 
is het registerpaar AF. 

OPMERKING: figuur 1 toont de toetsenbord¬ 
tabel zoals die bij de MSX computers ge¬ 
bruikt wordt. 


ISFLIO 

Het adres waar deze subroutine aangeroepen 
moet worden is &H14A. Deze subroutine 
kijkt of er een device 1/0 fout gemaakt 
is. 

INPUT PARAMETERS: bij deze subroutine 
worden geen input parameters verwacht. 

OUTPUT PARAMETERS: indien er een device 
I/O fout gemaakt werd, zal de accumulator 
op 0 gezet worden en de Z vlag zal gezet 
zijn. Indien er geen device 1/0 fout ge¬ 
maakt is, zal de accumulator een waarde 
groter dan 0 bevatten en de Z vlag zal 
gereset zijn. 


KILBUF 

Het adres waar deze subroutine aangeroepen 
moet worden is &H156. Deze subroutine wist 
de volledige keyboard buffer. 

INPUT PARAMETERS: bij deze subroutine 
worden geen input parameters verwacht. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen ouput parameters gegeven. 

STAND VAN DE REGISTERS: het enige regi¬ 
sterpaar, dat veranderd kan worden door 
het uitvoeren van deze subroutine, is het 
registerpaar HL. 

Dit voor de BIOS CALLS die te maken hebben 
met het toetsenbord, het scherm of de 
printer. 

De volgende BIOS CALLS hebben allen iets 
te maken met het geheugen en in het bij¬ 
zonder de PPI 8235. Deze PPI is de chip, 
die het mogelijk maakt met meer dan 64k te 
werken. 

Hoewel enkele van deze BIOS CALLS u mis¬ 
schien overbodig zullen lijken vanwege het 
feit, dat u hetzelfde met een simpele OUT 
of IN instruktie kunt bewerkstelligen, is 
het toch beter met deze BIOS CALLS te 
werken. Doet u dit niet en gebruikt u de 
OUT en IN instrukties, dan kan het gebeu¬ 
ren dat uw programma incompatible is met 
de komende generaties van MSX computers. 
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In de volgende BIOS CALLS zal meestal een 
bepaald register het slot moeten specifi¬ 
ceren. Dit register moet gevuld worden met 
de gewenste waarde. Deze waarde kan men 
bepalen aan de hand van de gegevens in 
figuur 2. 

De laagste twee bits bepalen het slotnum¬ 
mer* Dit kan dus nooit groter zijn dan 3. 
De daarop volgende twee bepalen het secun¬ 
daire slotnummer en dit kan dus eveneens 
niet groter zijn dan 3. Een secundair slot 
zal bij de MSX computers meestal niet 
nodig zijn, vanwege het feit dat geen 
enkele van de tot nu toe verkrijgbare MSX 
computers een uitgebreid slot heeft. Bij 
de MSX2 computers ligt dit iets anders. 
Daar is meestal wel een uitgebreid slot 
aanwezig. 

De hoogste bit tenslotte moet op 1 gezet 
worden als een secundair slot gewenst is. 
Is geen secundair slot gewenst, dan moet 
dit bit op 0 gezet worden. 

Hier volgen dan de BIOS CALLS, die te 
maken hebben met de PPI 8255 processor. 


RDSLT 

Het adres waar deze subroutine aangeroepen 
moet worden is &HC. Deze subroutine leest 
een geheugenplaats uit een slot of even¬ 
tueel een secundair slot. 

INPUT PARAMETERS: het registerpaar HL moet 
bij het aanroepen van deze subroutine de 
gewenste geheugenplaats bevatten en de 
accumulator moet bepalen welk slot gese¬ 
lecteerd wordt. (Zie hierboven) 

OUTPUT PARAMETERS: de accumulator is de 
enige output parameter en bevat de inhoud 
van de geheugenplaats, die gelezen moest 
worden. 

STAND VAN DE REGISTERS: de registers AF, 
BC en DE kunnen door het uitvoeren van 
deze subroutine in waarde veranderd zijn. 

OPMERKING: door het feit, dat in PAGE 3 
het systeem RAM ligt, is het lezen van een 
geheugenplaats van PAGE 3 in een ander 
slot niet zonder meer mogelijk. 


WRSLT 

Het adres waar deze subroutine aangeroepen 
moet worden is &H14. Deze subroutine 
schrijft een bepaalde waarde in een geheu¬ 
genplaats van een slot of een secundair 
slot. 

INPUT PARAMETERS: het registerpaar HL moet 
bij het aanroepen van deze subroutine de 
gewenste geheugenplaats bevatten en de 
accumulator moet bepalen in welk slot 
geselecteerd wordt. (Zie hierboven). Het 
register E moet de waarde bevatten, die in 
de geheugenplaats geschreven moet worden. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 


STAND VAN DE REGISTERS: de registers AF, 
BC en D kunnen door het uitvoeren van deze 
subroutine in waarde veranderd zijn. 

OPMERKING: door het feit, dat in PAGE 3 
het systeem RAM ligt, is het schrijven 
naar een geheugenplaats van PAGE 3 in een 
ander slot niet zonder meer mogelijk. 


CALSLT 

Het adres waar deze subroutine aangeroepen 
moet worden is &H1C. Daarbij moet opge¬ 
merkt worden dat de RST 6 instruktie het¬ 
zelfde doet als deze subroutine. Daarom is 
het in dit geval beter de RST 6 instruktie 
te gebruiken. Door middel van deze subrou¬ 
tine kan men een M.taal programma of sub¬ 
routine in een ander slot of een secundair 
slot aanroepen. 

INPUT PARAMETERS: het register IX moet bij 
het aanroepen van deze subroutine de ge¬ 
wenste geheugenplaats bevatten en de hoog¬ 
ste byte van het register IY moet bepalen, 
welk slot geselecteerd wordt. (Zie hierbo¬ 
ven) 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. De 
aard van de subroutine, die aangeroepen 
is, kan daarin echter verandering gebracht 
hebben. 

STAND VAN DE REGISTERS: geen van de nor¬ 
male registers wordt door het uitvoeren 
van deze subroutine veranderd in waarde. 
De alternatieve registers HL, DE, BC en AF 
worden echter wel in waarde veranderd. 
Deze registers worden slechts zeer kort¬ 
stondig gebruikt voor het eigenlijke aan¬ 
roepen van de subroutine. 

OPMERKING: om parameters door te geven aan 
de subroutine die aangeroepen moet worden, 
kan men alle 8-bits registers gebruiken, 
behalve de alternatieve registerparen. Om 
parameters door te geven van de aangeroe¬ 
pen subroutine terug naar het gewone pro¬ 
gramma, kan men alle registers gebruiken, 
behalve de alternatieve accumulator. Ook 
hier is het niet zonder meer mogelijk een 
subroutine in PAGE 3 van een slot aan te 
roepen. Doet men dit toch, dan zal de 
computer zichzelf "op slot zetten". 


ENASLT 

Het adres waar deze subroutine aangeroepen 
moet worden is &H24. Deze subroutine se¬ 
lecteert een PAGE van een slot of een 
secundair slot. 

INPUT PARAMETERS: de accumulator moet 
bepalen welk slot geselecteerd wordt. (Zie 
hierboven) De twee hoogste bits van het 
register H moeten bepalen welke PAGE. 
Hieronder een verduidelijking: 
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Bit 7 6 

9 9 = PAGE 0 
01= PAGE 1 
10= PAGE 2 
1 1 = PAGE 3 


OPMERKING: figuur 3 geeft duidelijk weer, 

noe net bitpatroon van poort A van de PPI 
onderverdeeld is. Voor elk van deze vier 
pagina s zijn steeds twee bits voorzien 
die aangeven uit welk slot ze ziin gese¬ 
lecteerd. J ö 


OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: de registers HL, 
DE, BC en AF kunnen door het uitvoeren van 
deze subroutine in waarde veranderd zijn. 

OPMERKING: door het feit, dat in PAGE 3 
het systeem RAM ligt, is het selecteren 
van PAGE 3 in een ander slot niet zonder 
meer mogelijk. 


RSLREG 

Het adres waar deze subroutine aangeroepen 
moet worden is &H138. Deze subroutine 
leest gewoon poort A van de PPI processor 
uit. Dit kan met een gewone IN instruktie 
gedaan worden, doch dit is zoals reeds 
eerder vermeld niet aan te bevelen. 

INPUT PARAMETERS: bij deze subroutine 

worden geen input parameters verwacht. 


11= slot 3 
10= slot 2 
01= slot 1 
00= slot 0 

WSLREG 

Het adres waar deze subroutine aangeroepen 
moet worden is &H13B. Deze subroutine 
schrijft een waarde naar poort A van de 
PPI processor. Dit kan met een gewone OUT 
instruktie ook gedaan worden, maar dit is 
zoals reeds eerder vermeld, niet aan te 
bevelen. 

INPUT PARAMETERS: de accumulator moet de 
waarde, die in poort A van de PPI geschre¬ 
ven moet worden, bevatten. 

OUTPUT PARAMETERS: bij deze subroutine 
worden geen output parameters gegeven. 

STAND VAN DE REGISTERS: geen van de regi¬ 
sters kan door het uitvoeren van deze 
subroutine in waarde veranderd zijn. 


OUTPUT PARAMETERS: de enige output parame¬ 
ter is de accumulator, die de inhoud van 
poort A van de PPI bevat. 

STAND VAN DE REGISTERS: het enige regi¬ 
ster, dat door het uitvoeren van deze 
subroutine veranderd kan zijn in waarde is 
de accumulator. 


OPMERKING: het formaat van de waarde, die 
in poort A van de PPI geschreven moet 
worden , m is hierboven bij BIOS CALL 
"RSLREG" reeds beschreven. 

Tot zover de BIOS CALLS die te maken heb¬ 
ben met de PPI 8255 processor. In een 
volgend artikel zal ik het hebben over de 
BIOS CALLS die te maken hebben met de VDP. 
Tot ziens en nog veel leesgenot. 
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—Niet van toepassing. 
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MSX-2 COPY commando 


Een van de grote verschillen van MSX-2 
computers ten opzichte van MSX—1 computers 
is, dat ze veel meer grafische mogelijk¬ 
heden hebben. Dit komt doordat de MSX-2 
computers een veel groter VIDEO-RAM 
geheugen hebben en vooral omdat er een 
veel krachtiger video processor in zit. In 
de rest van dit artikel zal verder de 
benaming VDP gebruikt worden voor de video 
processor. Deze VDP -de V9938- is zelfs in 
staat een klein programma uit te voeren. 

Het COPY' commando is een van de nieuwe 
mogelijkheden, die praktisch volledig uit¬ 
gevoerd worden door de VDP. COPY copieert 
delen van het scherm naar of van diskette, 
array s of andere delen van het scherm! 
Hieronder alle mogelijkheden op een 
rijtje: 

COPY (X,Y)-(X1,Y1),P T0(X2,Y2),P1,LB 

COPY (X,Y)-(X1,Y1),P TO”A:FILENAME” 

COPY (X,Y)-(X1,Y1),P TO ARRAY 

COPY "A:FILENAME",R TO (X2,Y2),P1,LB 

COPY ARRAY,R TO (X2,Y2),Pl,LB 

COPY ARRAY TO "A:FILENAME" 

COPY "A:FILENAME" TO ARRAY 

De betekenis van de gebruikte variabel 
namen is als volgt: 

R = Richting (getal tussen 0 en 3) 

P = Schermpaginanummer (vertrekscherm) 

PI— schermpaginanummer (aankomstscherm) 

LB= Logische bewerking die moet uitgevoerd 
worden. 

Door middel van de richting die men kan 
ingeven is het mogelijk een tekening te 
draaien in stappen van 90 graden. Zodoende 
is het mogelijk een tekening op zijn kop 
op het scherm te plaatsen. Het volgende 
programmaatje toont duidelijk hoe dit 
gebeurt: 

10 C0L0R 15,4,4:SCREEN 5 
20 FOR 1=1 TO 15 
30 LINE(1,30)-(I*2,l),1 
40 NEXT I 
50 DIM A(485) 

60 COPY(0,0)-(30,30) T0 A 

70 FOR 1=0 TO 3 

80 COPY A,I TO (100,100) 

90 FOR W=1 TO 1000:NEXT W,1 
100 IF INKEY$=’"'THEN 100 
110 END 

In de regels 10 t/m 40 wordt het scherm 
ingesteld en wordt er in de linker 
bovenhoek een klein tekeningetje gemaakt, 
vervolgens wordt in regel 50 een array 
aangemaakt. De grootte van de array is 
afhankelijk van de grootte van de teke¬ 


ning; hierop komen we later terug. In 
regel 60 wordt de tekening in de array 
gecopieerd, waarbij opvalt dat hier geen 
schermpaginanummer gegeven wordt daar hier 
gewoon het actieve scherm wordt bedoeld. 
Vanaf regel 70 tot regel 90 wordt door 
middel van een F0R-NEXT lus het teke¬ 
ningetje in elk van de vier richtingen op 
het scherm gebracht. De lus in regel 90 is 
enkel bedoeld als wachtlus en kan des¬ 
gewenst weggelaten worden. 

De schermpaginanummers die men kan ingeven 
maken het mogelijk een deel van het scherm 
van de ene naar de andere pagina te 
copieren. Het aantal beeldschermpagina's 
dat ter beschikking staat wordt bepaald 
door de grootte van de video-ram en de 
gekozen schermmode. Als we van de veron¬ 
derstelling uitgaan dat men beschikt over 
128K VRAM dan zijn de volgende waarden van 
toepassing: 

SCREEN 5: 4 PAGINA'S 
SCREEN 6: 4 PAGINA'S 
SCREEN 7: 2 PAGINA'S 
SCREEN 8: 2 PAGINA'S 

Bij MSX-2 computers met slechts 64K VRAM 
is dit steeds half zoveel. 

Zeer prachtige resultaten kan men bereiken 
door gebruik te maken van de logische 
bewerkingen. Men heeft in totaal 10 
logische bewerkingen. Deze zien er als 
volgt uit: 

XOR = N0T(NK)*0K+NK*N0T(0K) 

OR = 0K+NK 

AND = NK*0K 

PSET = NK 

PRESET = NOT(NK) 

TOR, TAND, TX0R, TPSET en TPRESET zijn ge¬ 
lijk aan resp. 0R, AND, XOR, PSET en 
PRESET doch niet van toepassing bij 
transparant. 

De variabele 0K betekent oude kleur en de 
variabele NK betekent nieuwe kleur. Om 
echt heel serieus met deze mogelijkheden 
te werken is wel een grondige kennis van 
de logische operatoren vereist; doch dit 
wil niet zeggen dat men er niet mee mag 
experimenteren. Het volgende programmaatje 
toont enkele leuke effekten: 

10 C0L0R 15,0,0:SCREEN 5 
20 SETPAGE 0,1:CLS 
30 FOR 1=0 TO 15 STEP 3 
40 CIRCLE (15,15) ,1,1 
50 NEXT I 

60 FOR X=0 TO 220 STEP 3 

70 FOR Y=0 T0 180 STEP 3 

80 COPY(0,0)-(30,30),l TO (X,Y),0,XOR 

90 COPY(0,0)-(30,30),1 T0 (220-X,180-Y),0, 

XOR 

100 NEXT Y,X 
110 GOTO 60 
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Als men het programma opstart zal men zien 
dat het. scherm langzaam op zeer 
eigenaardige wijze gevuld wordt met een 
ruitjespatroon. Hoewel het een hele tiid 
duurt verdwijnt het patroon ook weer op 
dezelfde, wijze als het op het scherm 
gekomen is. Dit komt door het feit dat de 
logische operator XOR een soort van 
wisselwerking geeft; het volgende voor¬ 
beeld verduidelijkt dit: 

01011001 EERSTE GETAL 
11100100 XOR 


10111101 RESULTAAT 
11100100 XOR 


01011001 WEER HET OORSPRONKELIJKE GETAL 

Door deze logische operatoren zeer 
doordacht te gebruiken zijn de meest 
fantastische grafische beelden te maken 
met betrekkelijk korte programma's. 

Zoals reeds eerder te zien was kan een 
tekening in een array worden gecopieerd en 
van een array uit weer terug op het 
scherm. Deze array moet eerst in het pro¬ 
gramma gedimensioneerd zijn met de 'DIM' 
instructie. De grootte van deze array is 
afhankelijk van de grootte van de tekening 
en de formule voor de berekening is als 
volgt: 

INT((S*(ABS(Xl-X)+l)*(ABS(Yl-Y)+l)+7)/8)+4 

De variabele S is gelijk aan 4 als men in 
de schermmodes 5,7 of 8 werkt. In 
schermmode 6 is de waarde van S gelijk aan 
z. Het volgende programma toont nog enkele 
voorbedden van de mogelijkheden van het 
oOPY commande. Veel C0PY genot. 

M.Buysse 

(NvdR. De bovenstaande formule voor het 
berekenen van de te dimensioneren varia- 

TNTPrfi'e S nl f t u compleet. Bij gebruik van 
\TEGER variabelen dient de uitkomst door 
l te worden gedeeld, bij var. met enkel¬ 
voudige nauwkeurigheid kan door 4 worden 
gedeeld en bij var. met dubbele nauw¬ 
keurigheid kan door 8 worden gedeeld. De 
formule is wel goed (en staat ook zo in 
het Philips handboek) maar neemt -zonder 
de extra deling- erg veel geheugenruimte 
^ et voor beeld -regel 50 DIM 
^ k an dus DIM A(61) staan daar de 

variabelen niet zijn benoemd en de 
computer dan uitgaat van variabelen van 
dubbele precisie). 

10 C0L0R 15,0,1:SCREEN 7:CLS 
20 0PEN"GRP :"AS#1 
30 SETPAGE 0,0 

40 PRESET(170,20):PRINT#1,"DEZE TEKST ZAL" 

50 PRESET(170,60):PRINT#1,"NIET VERDWENEN” 

60 PRESET(170,80):PRINT#1,"ZIJN NADAT DE” 

70 PRESET(170,80):PRINT#1,"TEKENING ER” 

80 PRESET(170,100):PRINT#!,"OVER GLEED'" 

90 SETPAGE 0,1:CLS 
100 F0R 1=0 T0 511 


120 nex ? ( ^ 0)_(511_I ’ 211) ’ RND(1) * 15 
130 F0R 1=0 TO 211 
140 LINE(0,I)-(511211-1) RND (1)*15 
150 NEXT I v ' 

160 F0R 1=0 T0 511 STEP 4 

COPY (I,0)-(I+1 211) 1 TO (I 0) 0 XOR 

J)!o C xoI (510 " I,0) " (511 " i>211) ’ 1 T0 

190 NEXT I 
200 GOTO 160 


2 grafische grapjes 

Beeldscherm: WIDTH 36 
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159 •’ WACHTLUS 

160 FORW=1T05000: 
170 G0T032 


’ *** SPIN *** 

’ Door: Martin Maat 
' <<=) 1986 MSX-Gids 

’ INITIALISATIE 
CDLOR G T 5 1 •’ P: DEFINTN, L, A: PI=4*ATN ( 

R=RND(-TIME) 

F=(RND(1)*8+1)*2 
A=RND(1)* 10 
S=RND(1)*PI 
L=RND(1)*90 
N=64*S 

C=14*RND(1)+2 
D=14*RND(1)+2 
IFC=DTHEN50 
SCREEN2 

•’ HOOFDLUS +++++++++ 

FORP=0TON * PISTEPS 
IFL<-100ORL>100THENA=-A:L=L-A 

prpgptÏJ^o +128: Y=L*CüS(P)+96 
FRESET(128,96) 

T=T+.2 

IFT>2*PI /FTHENSWAF'C, D: T=0: l =L-A 

LINE-(X,Y),C 

NEXTP 


NEXT 


Beeldscherm: WIDTH 36 

1 •’ *** suplin" ***' 

2 "Door: Martin Maat 

3 ’ (c> 1986 MSX-Gids 

4 ’ 

5 COLOR, 1,1: DEFSNGF’, X, Y, A 

6 DEFINTC,D 

^I=4*ATN< 1) : R=RND (—TIME) +1: Q=RND ( 

™ ^ F ?^^ THENR=_R: IFQ>i.5THENQ=-Q 
20 C=RND(1)* 14+2:D=RND(1)* 14+2 
30 SCREEN2 

40 FORA=0TO2*PISTFF'. 075 

45 C=RND(1)* 14+2:D=RND(1)*14+2 

50 X-10*R*BIN(A)*CGS(A):Y=10*Q*COS(A 

60 PRESET(128+4*R*X,96+1.5*Q*Y):SWAP 

L n JU 

70^LINE-STEP(10*SIN(A)*X,10*SIN(A)*Y 
80 W NEXTA 

100 FORW=1T03500:NE X TW 
200 GOTO10 
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NOGMAALS: SECTOR COPY 


ALLEEN VOOR 64 K MACHINES 
ALLEEN GESCHIKT VOOR DISKETTE 
Beeldscherm: WIDTH 36 


Van A.C.J. Groeneveld kregen we een brief 
met een reaktie op het sector-copy pro¬ 
gramma uit Gids nummer 5. 

Dit programma is niet compleet daar er een 
controle op eventuele fouten ontbreekt- Zo 
is het b-v- mogelijk een niet gefor¬ 
matteerde schijf te lezen of te be¬ 
schrijven zonder dat er een foutmelding 
plaatsvindt. De heer Groeneveld heeft een 
en ander voor ons uitgezocht en komt met 
een oplossing door gebruik te maken van 
BIOS entry 0144H. Bij een diskfout geeft 
deze entry een foutcode in register A: 0= 
geen fout- We hebben ons programma uit 
nummer 5 aangepast door deze entry aan te 
roepen in de machinecode routine- De 
volgende regels zijn aangepast en/of 
gewijzigd: 

regel 165 
regel 285 
regel 310 
regel 425 
regel 450 
regel 460 

Wie dit programma wil gebruiken om van 
drive B naar drive A te kopiëren kan dit 
doen door volgende regels als volgt te 
veranderen: 

110 P0KE 34992,1 

230 IF X=2 THEN P0KE 34992,0 

Dit kan uiteraard in het begin van het 
programma met een vraag worden opgegeven 
en de waardes in regel 110 en 230 kunnen 
dan met een variabele worden veranderd. 

Uiteraard is het commentaar van de heer 
Groeneveld op ons programma geheel 
terecht en we bedanken hem hierbij voor 
zijn reaktie, maar door deze aanvulling 
zijn we weer gaan stoeien en nu blijkt dat 
deze foutafhandeling alleen werkt bij 
drive A- Fouten bij drive B hebben geen 
invloed op register A in de BIOS routine. 

Dus, hierbij dan weer een oproep aan onze 
lezers of er misschien een routine bekend 
is die voor beide drives een foutcode 
geeft. 

De foutafhandeling bij diskBASIC is toch 
al niet al te denderend want, wanneer we 
bij onze Philips VG-8235 een schijf met 
slechts enkele files opvragen met het 
commando 'FILES' en vervolgens de diskette 
verwijderen dan kunnen we met de opdracht 
'FILES' nog steeds een inhoudsoverzicht 
van de diskette krijgen. Als we ver¬ 
volgens een file willen inlezen krijgen we 
de foutmelding 'file not found'. In beide 
gevallen had echter de foutmelding 'disk 
offline' of 'disk i/o error' moeten 
verschijnen. De foutafhandeling is alleen 
correct indien er een flink aantal files 
op de diskette staat; waarschijnlijk gaat 
alles goed zolang de index op de schijf 
over meer dan 1 track verdeeld is. 


10 SCREEN0:CLEAR 50,34978! 

20 WIDTH37:KEYOFFs DÈFINT A-Z 
30 LOCATE10,1s PRINT”MSX sector copy” 
35 GOSUB 310 

40 LDCATE8,20:BEER:PRINT”1 OR 2 DRIV 
ES? 1/2:” -, 

50 X*=INKÈY*: IFX*="”THEN50 
60 X=VAL(X$):IFX<1DRX>2THEN40 
65 LOCATE 8, 20: PRINT” DRIVES: ”; X 
;SPC(20) 

70 FOR F=0 TO 719 STEP 48 
80 IFX=2THEN110 

85 FOR A=1T09999:NEXT sBEEP:BEEP 
90 LOCATE0,20:BEEP:PRINT"Insert MAST 
ER disc, press RETURN.” 

100 X *=ï NKEY$:IFX*=CHR*(13)THEN110EL 
SE 100 

110 POKE 34992!,0 

120 POKE 34986!,INT(F/256) 

130 POKE 34985!,F MOD 256 
140 POKE 34990!,175 

150 LOCATE0,8:PRINT" READ sector: "g 
F-, ; F+48 

160 A== USR (0) 

165 GOSUB 450 
190 IFX=2THEN220 

195 FOR A=1T09999:NEXT:BEEP:BEEP 
200 LOCATE0,20:BEEP:PRINT” Insert SL 
AVE disc, press RETURN." 

210 X$=INKEY$:IFX$=CHR$(13)THEN220EL 
SE210 

220 POKE 34992!,0 

230 IF X=2 THEN POKE 34992!,1 

240 POKE 34990!,55 

260 LOCATE0,8:PRINT”WRITE sector: 

F-, " —”; F+48 
280 A= USR(0) 

285 GOSUB 450 
290 NEXT F 

300 LOCATE0,20:BEEP:PRINT”FINISHED.. 

...1 : END 

310 FOR 1=0 TO 19:READ A 
330 POKE 34980!+1,A:NEXT 
350 DEFUSR=34980!:RETURN 


360 DATA 6,48 
370 DATA 14,248 
380 DATA 17,0,0 
390 DATA 33,184,136 
400 DATA 175 
410 DATA 62,1 
420 DATA 205,68,1 
425 DATA 50,163,136 
430 DATA 201 

450 IF PEEK(34979!><>0THENPRINT” DRI 
VE ERROR ï":STOP 
460 RETURN 


FOUTJE IN NR. 5 

In de listing bij het artikel 'De computer 
als tegenspeler bij mastermind' op pagina 
14 van MSX-Gids nr.5 staat op regel 130 
een foutje. Hier moet 'IF G=6' veranderd 
worden in: 'IF G=7' 
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MSX MORSE-TRAINER 


code 

Voor 

voor 

is 

Voor 


U hebt allemaal op de korte golf van uw 
radio wel eens die pieptoontjes gehoord 
waarvan u dacht: wat moet ik daar nu weer 
mee? Een oplettende luisteraar heeft 
natuurlijk wel in de gaten dat het niet om 
een test of een stoorsignaal gaat; hier is 
sprake van het gebruik van morse-code. 

Morse-code is ontwikkeld als communicatie— 
middel voor onder andere de scheepvaart en 
is met name in de oorlog gebruikt als 
middel om contact tussen verschillende 
groeperingen te onderhouden. Het is een 
combinatie van korte en lange pieptonen. 
Voor elke letter is er zo^n code (ook voor 
dit wordt hier echter niet 
gebruikt). Vandaag de dag wordt de 
nog toegepast door de zend-amateurs. 
het verkrijgen van alle machtigingen 
het internationaal zenden/ontvangen 
kennis van morse-code een vereiste, 
die mensen, die hiermee te maken hebben, 
en voor diegenen, die het gewoon inte¬ 
ressant vinden, is dit programma gemaakt. 

Morse Trainer wil de gebruiker vertrouwd 
maken met het luisteren naar morse-code en 
het leren ervan vereenvoudigen/versnellen. 
Het programma is volledig menu- gestuurd 
en is daardoor makkelijk in het gebruik. 

Enkele functies zijn: 

instellen van de gewenste oefensnelheid, 
volume en toonhoogte. 

- het afdrukken van het alfabet -inclusief 
de codes- op het scherm. 

- de mogelijkheid om zelf tekst in te ty¬ 
pen die dan 'gepiept' wordt. 

- het oefenen van de codes door middel van 
een vraag- antwoord loop. 

Een beschrijving van de menu's is niet 
nodig; deze wijzen zichzelf. 

Wel is een beschrijving van het programma 
voor sommige mensen van belang. 

Het programma is opgebouwd uit modules die 
elk een eigen functie hebben. Deze opbouw 
is zoveel mogelijk vastgehouden, omdat dit 
het opsporen van fouten aanzienlijk 
versnelt. Over de variabelen die gebruikt 
worden kan het volgende gezegd worden: 

L he t aantal letters dat in de oefen 

module gevraagd wordt (1-9). 

VO het volume waarmee geseind wordt 

(1-15). 

SL/SK lengte van de pieptoon ( SL= lange 
toon, SK= korte toon). 

HM/HL meest en minst significante deel 

van de toonhoogte ( dus grof- en 
fijn instelling). 

G afhankelijk van de waarde ervan 

wordt een bepaald programma- deel 
uitgevoerd. 

F$ bevat de tekst die in de kop staat 

(= de functie). 

A$ de string die de te seinen tekst 

bevat. 


HULP bepaalt of er controle op invoer 

plaatsvindt in het kaders- en kop¬ 
regels gedeelte en geeft aan of 
het scherm gewist moet worden als 
er geseind wordt. 

Alle andere variabelen zijn minder 
belangrijke hulpvariabelen. De listing zal 
verder duidelijk genoeg zijn om het ver¬ 
loop te kunnen volgen. 

Dit programma behandelt niet de gehele 
morse-code. Het is slechts een hulpmiddel 
om met de code in aanraking te komen. 

Richard Altenburg. 
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Snelheid/toonhoogte 

T A S# *-k ftlP , 

fc / » c hciia- / uuuca> u^’ =>Ci»«•*«**« 

3) Tekst invoeren^seinen 
^ p mwe Gc f cïicii 
5> EINDE 


Beeldscherm: WIDTH 36 

i 0000 bÖsljb ’ i 4000. 

10010 GOTO 13000 
11000 •’ 

**************************** 
* MORSE - SEIN ROUTINE * 

**************************** 

IF HM< 0 THEN HM =0 
IF HULF -2 THEN 11040 
LINE <21,66)-(234,179),7,BF 
IF A$="" THEN 11230 


11010 
11020 
11030 
11040 
11050 


DATA 


A. 

E. 

I. . 
M— 
Q—. 


i B . . 
,F. 

, J. - 

< N-. 

■j R. 


5 C —. 5 D-. 

| G m | Ha ■ 


11060 
11070 
11080 
11090 

11100 

11110 

11120 


”»^ ■ jL. , 

j 0 iP. — > , 

,S... ,T— 

u..- 

Y-. —, Z —. . 


K0=48 
RI =80 
FOR F=1 TO LEN(A$) 

IF KO>208 THEN RI=RI+ 20 : 
K0=48 

RESTORE 11050 
IF HULP =2 THEN 11140 
IF MID$(A$,F,1)= "/" THEN 
PRESET (KÖ,RI),7: 
PRINT # 1 , ” <>"; ' 

FOR R =1 TO SL*2s 
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NEXT Pi 
GOTO 11210 

11130 PRESET<KO,RI),7: 

PRINT #1,MID*(A*,F,1) 

11140 FOR G=1 TO <ASC(MID*(A$,F,1)>- 
64) 

11150 READ B$ 

11160 NEXT 
11170 FOR N=2 TO 6 
11180 IF MID$ (B$,N,1) = " — " THEN 
SOUND 2,HL:SOUND 3,HM: 

SOUND 7,252:SOUND 9,V0: 

FOR P=1 TO SL : NEXT P: 

FOR P=1 TO SK/3 :NEXT P: 
SOUND 9,0 

11190 IF MID$(B$,N,1) = " ." THEN 
SOUND 2,HL:SOUND 3,HM: 

SOUND 7,252:SOUND 9,V0: 

FOR P=1 TO SK :NEXT P: 

FOR P=1 TO SK/3 :NEXT P: 
SOUND 9,0 
11200 NEXT 
11210 K0=K0+8 
11220 NEXT F 
11230 RETURN 
12000 =■ 

******t***%*t*******t%xxx%%* 

* KADERS EN KOPREGELS * 
**************************** 


12010 LINE (65,44) — <191,56> , 7,BF 
12020 LINE (21,66)-(234,179),7,BF 
12030 LINE (20,10)-<235,26),,B' 

1204«) dkAw i! BM20, iöLt>Di6K2i5Ü8 ii 

12050 PAINT (19,ï9) ,1 

12060 PRESET (47,14),7 

12070 PRINT # 1,"M S X MORSE TRAINER 

M 

12080 FOR F=24 TO 56 STEP 8 
12090 CIRCLE (F,50),4,4 
12100 PAINT STEP (3,0),4 
12110 CIRCLE (256-F,50j,4,4 
12120 PAINT STEP (3,0),4 
12130 NEXT 

12140 PRESET (60,46),7 
12150 PRINT #1,F$ 

12160 LINE (20,65)-(235,180),,B 
12170 DRAW "BM20,73L5D115R215Ü8" 
12180 PAINT (19,74),1 
12190 FOR F=80 tO 160 STEP 20 
12200 PRESET (32,F),7 
12210 READ T$ 

12220 PRINT #1,T* 

12230 NEXT 

12240 IF HULF-1 THEN 12280 
12250 X*=INPUT$(1) 

12260 G=ASC(X$> 

12270 IF G<49 OR G>53 THEN 12250 
12280 RETURN 
13000 ’ 

**************************** 

* MENU * 

**************************** 


13010 F$=" MENU" 

13020 RESTORE 13040 
13030 GOSUB 12000 

13040 DATA1) Snel heid/toonhoogte 

,2) Tekens/codes op scherm 
,3) Tekst invoeren/seinen 
,4) Morse-code oefenen 
,5) EINDE 
13050 G=G—48 


13060 ON G GOTO 15000,16000,17000 
,19000,20000 
13070 GOTO 13070 
13080 RETURN 
14000 ' 

**************************** 
* INITIALISATIE * 

**************************** 


14010 COLOR 1,7,7 
14020 SCREEN 2 

14030 OPEN "GRP:" FOR OUTPUT AS #1 

14040 ON STOP GOSUB 14140 

14050 STOP ON 

14060 L=1 

14070 VO=10 

14080 SL=50 

14090 SK=SL/3 

14100 HM=2 

14110 HL=100 

14120 DEFINT A,K,F 

14130 RETURN 

14140 FOR Q=1 TO 15 

14150 COLOR ,,Q 

14160 BEEP 

14170 NEXT 

14180 COLOR ,,7 

14190 RETURN ' 

15000 •’ 

**************************** 

* BEPAAL SNELHEID/H006TE * 

**************************** 

* 

15010 F$=" SNELHEID/HOOGTE" 

15020 RESTORE 15040 
15030 GOSUB 12000 
15040 DATA1) Snelheid verhogen 
,2) Snelheid verlagen 
,3) Hogere tonen 
,4) Lagere tonen 
,5) MENU 
15050 G=G—48 

15060 IF G=5 THEN GOTO 13000 
15070 ON G GOSUB 21000,21070,21140 
,21230 

15080 HULP=0 
15090 X$=INPUT$<1) 

15100 G=ASC(X$) 

15110 IF 6<49 OR G>53 THEN 15090 
15120 GOTO 15050 
16000 ■’ 

**************************** 

* TEKENS/CODES OP BEELD * 
**************************** 


16010 F$=" TEKENS EN CODES" 

16020 RESTORE 16040 

16030 GOSUB 12000 

16040 DATAA .- B . C 

,D E . F .,-. 

,G —. H- I 

,4) Overige letters 
,5) MENU 

16050 DATAJ .- K I 

, M — N —. Ö- 

,P .—. 0 —,- R 

,4) Overige letters 
,5) MENU 

16060 DATAS ... T - U..- 

, V . . .- W .— X - 

, Y -.— 2 —. . 
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5 4) Opnieuw bekijken 
,5) MENU 

16070 IF G=53 THEN 13000 
16080 RESTORE 16050 
16090 GOSUB 12000 
16100 IF G=53 THEN 13000 
16110 RESTORE 16060 
16120 GOSUB 12000 
16130 IF G=53 THEN 13000 
16140 GOTO 16020 
17000 •’ 


**************************** 
* TEKST INVOEREN EN SEINEN * 
**#************************* 


17010 F#=" TEKST INVOEREN" 

17020 HULF-1 
17030 RESTORE 17050 
17040 GOSUB 12000 
17050 DATA1),2),3) ,4) 

s Type tekst (RETURN=SEIN) 
17060 A#="" 

17070 FOR F=80 TO 140 STEP 20 
17080 FOR G=4B TO 208 STEP b' 

17090 R#=INPUT#(1) 

17100 Q=ASC(R#) 

17110 IF Q=13 THEN 17180 
17120 IF GK65 OR Q>90 THEN 

IF Q=32 THEN R#="/": 

GOTO 17130 

ELSE COLOR,,2:PLAY "L64CFE": 
COLOR,,isCOLOR,,7: 

GOTO 17090 
17130 PRESET (G,F),7 
17140 PRINT #i,R# 

17150 A#=A#+R#' 

17160 NEXT G 
17170 NEXT F 
17180 HULP=0 
17190 F#=" SEINEN" 

17200 RESTORE 17220 ' 

17210 GOSUB 12000 

17220 DATA1) Ingegeven tekst seinen 
5 2) Nieuwe tekst invoeren 
,3) Volume veranderen, 

,5) MENU 

17230 IF G=51 THEN GOSUB 18000 
17240 IF G=53 THEN 13000 
17250 IF G=49 THEN GOSUB 11000: 

GOTO 17190 

17260 IF G=50 THEN 17010 
17270 X#=INPUT# <1) 

17280 G=A5C(X#) 

17290 GOTO 17230 
18000 ’ 


* VOLUME WIJZIGEN * 

********* ******************* 


18010 LINE (56,140)-(192,147),3,BF 

18020 PRESET (56,140),3 ' ' 

18030 VO=VO+l 

18040 IF VO>15 THEN VO=l 

18050 PRINT #1,"HUIDIG VOLUME:"jVO 

18060 RETURN 

19000 •’ 


******* ********************* 
* MORSE-TRAINING * 

**************************** 


19010 F#=" MORSE OEFENEN" 


19020 

19030 

19040 


19050 

19060 

19070 

19080 

19090 

19100 

191 10 

19120 

19130 

19140 

19150 

19160 

19170 

19180 

19190 

19200 

19210 

19220 

19230 

19240 

19250 

19260 


RESTORE 19040 
GOSUB 12000 

DATA1) Begin met oefenen 

,2) Wijzig aantal letters. 
5) MENU 

13000 

GOSUB 19110 
19190 


IF 

IF 

IF 


6=53 THEN 
G=50 THEN 
6=49 THEN 
X#=INPUT#(1) 
G=ASC(X#) 
GOTO 19050 


LINE (56,120)-(184,127),3,BF 
PRESET (56,120),3 ' 

L=L+1 

IF L>9 THEN L=1 

PRINT #1,"HUIDIG AANTAL:";L 

RETURN 


V#=" ” 

FOR F=1 TO L 
GOSUB 22000 
V#=V#+A# 

NEXT 

LINE (21,66)—(234,179),7,BF 
PRESET (25,80),7 
IF L=1 THEN PRINT #1, 

"Ik sein nu 1 letter...": 

GOTO 19280 
19270 PRINT #1, 

"Ik sein nu";L-, " letters..." 
19280 FOR F=1 TO 800:NEXT 
19290 A#=V# 

19300 GOSUB 11000 

19310 FOR F=1 TO 300:NEXT 

19320 LINE (21,66)-(234,179),7,BF 

19330 PRESET (25,80),7 

19340 IF L=1 THEN PRINT #1, 

"Welke letter seinde ik r? ": 
GOTO 19360 
19350 PRINT #1, 

"Wel ke" ; L; "1 etters seinde ik' 7 " 
19360 X#=INPUT# <L) 

}|370 t INE (21,66)-(234,179),7,BF 
19380 PRESET (25,80),7 
19390 PRINT #1, ' 

"Uw antwoord is ";X#;"." 

19400 FOR F=1 TO L 

19410 IF MID#(A$,F,1)<>MID#(X$,F,1) 
THEN 19510 
19420 NEXT 

19430 PRESET (25,120),7 
19440 PRINT #1, 

"Dit is goed geantwoord 1 " 
19450 FOR Q=1 TO 15 
19460 COLOR ,,Q 
19470 NEXT 
19480 COLOR ,,7 
19490 GOTO 19560 
19500 COLOR ,,3 
19510 PRESET (25,120),7 
19520 PRINT #1, 

"Helaas is dat niet 
19530 PRESET (25,140),7 
19540 PRINT #1,"Het was: 

19550 GOSUB 11000 
19560 FOR F=1 TO 1800:NEXT 
19570 GOSUB 11000 
19580 FOR F=1 TO 1000:NEXT 
19590 COLOR ,,7 

19600 LINE (21,66)—(234,179),7,BF 
19610 PRESET (25,80),7 ' ' ' 

19620 PRINT #1,"Druk een toets...' 

19630 PRESET (25,100),7 
19640 PRINT # 1 , " [RETURN3 = MENU" 
19650 X#=INPUT#(1) 

19660 IF ASC(X$)=13 THEN 13000 


goed. 
"; A# 
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19670 GOTO 19190 
20000 ’ 

**************************** 
* EINDE PROGRAMMA * 

**************************** 


22000 ? 

**************************** 
* WILLEKEURIGE LETTER * 
**************************** 


20010 F$=" TOT ZIENS 
20020 RESTORE 20050 
20030 HULP=1 
20040 GOSUB 12000 

20050 DATAOOOOOOO^OOOOOOOOOOO'OOOO., 
O MAPIAL COMPUTING ’86 O, 
O 0, 

0 »»»» MSX - GIDS «•*** $, 

$0<>000$00000000000000<>QQ 
20060 X$=INPUT*<1) 

20070 SCREEN 0 
20080 WIDTH 36 
20090 COLOR 15,4,4 
20100 END 
21000 ' 


**************************** 
* SNELHEID VERHOGEN * 

**************************** 


21010 SL=SL—3 

21020 IF SL<1 THEN SL=1 

21030 SK=SL/3 

21040 GOSUB 22000 

21050 GOSUB 11000 

21060 RETURN 

21070 • 

**************************** 
* SNELHEID VERLAGEN * 

**************************** 


21080 SL=SL+3 

21090 IF SL>2000 THEN SL=2000 

21100 SK=SL/3 

21110 GOSUB 22000 

21120 GOSUB 11000 

21130 RETURN 

21140 ' 


**************************** 
* VERGROOT TOONHOOGTE * 
**************************** 


21150 HL=HL-3 

21160 IF HL<0 THEN HM=HM-1:HL=254 

21170 IF HM<0 THEN HM=0 

21180 SOUND 2,HL 

21190 SOUND 3^ HM 

21200 GOSUB 22000 

21210 GOSUB 11000 

21220 RETURN 

21230 •’ 

**************************** 
* VERKLEIN TOONHOOGTE * 
**************************** 


21240 HL=HL+3 

21250 IF HL=255 THEN HM=HM+1:HL=0 

21260 IF HM>15 THEN HM=15 

21270 SOUND 2,HL 

21280 SOUND 3,HM 

21290 GOSUB 22000 

21300 GOSUB 11000 

21310 RETURN 


22010 HULP=2 

22020 W$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 

II 

22030 W=INT(RND(-TIME)*26+1) 

22040 A$=MID$(W$,W,1) 

22050 RETURN 
23000 ’ 

**************************** 

* R. ALTENBURG * 

#(c)1986 MSX—Gids Amsterdam* 
**************************** 


CONTROLETELLING 
Regel:10000 - 161 
Regel:10010 
Regel:11000 
Regel:11010 
Regel:11020 
Regel:11030 
Regel:11040 
Regel:11050 
Regel:11060 _ 

Regel:11070 - 233 
Regel:11080 - 73 
Regel:11090 - 
Regel:11100 - 
Regel:11110 - 
Regel:11120 - 
Regel:11130 - 
Regel:11140 - 
Regel:11150 - 
Regel:11160 - 
Regel:11170 - 
Regel:11180 - 
Regel:11190 - 
Regel:11200 - 
Regel: 11210 - 
Regel:11220 - 
Regel:11230 - 
Regel: 12000 - 
Regel:12010 - 
Regel:12020 - 
Regel:12030 - 
Regel:12040 - 
Regel:12050 - 
Regel:12060 - 
Regel:12070 - 
Regel:12080 - 
Regel:12090 - 
Regel:12100 - 
Regel:12110 - 
Regel:12120 - 
Regel:12130 - 131 
Regel:12140 - 44 
Regel:12150 - 124 
Regel:12160 - 133 
Regel:12170 
Regel:12180 
Regel:12190 
Regel:12200 
Regel:12210 
Regel:12220 
Regel:12230 
Regel:12240 
Regel:12250 
Regel:12260 
Regel:12270 
Regel:12280 
Regel:13000 
Regel:13010 
Regel:13020 
Regel:13030 
Regel:13040 
Regel:13050 
Regel:13060 
Regel:13070 _ 

Regel:13000 - 142 
Regel:14000 - 58 


177 

58 

240 

89 

227 

116 

69 

200 


71 

15 

189 
82 
109 
34 
13 

131 

34 

118 

118 

131 

45 

233 

142 

58 

83 

227 

1B0 

75 

222 

255 

137 

147 

98 

190 
113 
190 


• 124 
■ 21 
■ 93 

25 

• 31 
138 
131 
52 
119 
151 

3 

142 

58 

146 

220 

201 

254 

174 

229 

248 


Regel:14010 - 119 
Regel:14020 - 248 
Regel:14030 - 81 
Regel:14040 - 147 
Regel: 14050 - 69 
Regel:14060 - 77 
Regel: 14070 - 173 
Regel:14080 - 207 
Regel: 14090 - 52 
Regel:14100 - 151 
Regel:14110 - 244 
Regel:14120 - 246 
Regel:14130 - 142 
Regel:14140 - 43 
Regel:14150 - 134 
Regel:14160 - 192 
Regel:14170 - 131 
Regel:14180 - 77 
Regel:14190 - 142 
Regel: 15000 - 58 
Regel:15010 - 254 
Regel: 15020 - 180 
Regel:15030 - 201 
Regel*15040 - 17 
Regel:15050 - 174 
Regel:15060 - 194 
Regel:15070 - 133 
Regel:15080 - 57 
Regel:15090 - 119 
Regel:15100 - 151 
Regel:15110 - 38 
Regel *.15120 - 187 
Regel:16000 - 58 
Regel:16010 - 200 
Regel:16020 - 160 
Regel:16030 - 201 
Regel:16040 - B7 
Regel:16050 - 186 
Regel:16060 - 226 
Regel:16070 - 71 
Regel:16080 - 170 
Regel:16090 - 201 
Regel:16100 - 71 
Regel:16110 - 180 
Regel:16120 - 201 
Regel:16130 - 71 
Regel: 16140 - 137 

Rpget !<7<Mg - SB 
Regel:Ï7ÖiÓ - 23B 
Regel:17020 - 58 
Regel:17030 - 150 
Regel:17040 - 201 
Regel *.17050 - 76 
Regel:17060 - 152 
Regel *.17070 - 41 
Regel *.17080 - 68 
Regel:17090 - 113 
Regel:17100 - 155 
Regel:17110 - 142 
Regel:17120 - 225 
Regel:17130 - 49 
Regel:17140 - 136 
Regel: 17150- 32 
Regel:17160 - 234 
Regel:17170 - 233 
Regel:17180 - 57 


Regel:17190 - 255 
Regel:17200 - 65 
Regel: 17210 - 201 
Regel: 17220 - 61 
Regel:17230 - 142 
Regel:17240 - 71 
Regel:17250 - 210 
Regel:17260 - 254 
Regel:17270 - 119 
Regel:17280 - 151 
Regel:17290 - 72 
Regel:18000 - 58 
Regel:1B010 - 2 
Regel:18020 - 130 
Regel:18030 - 60 
Regel:18040 - 28 
Regel:18050 - 34 
Regel:18060 - 142 
Regel:19000 - 58 
Regel:19010 - 131 
Regel:19020 - 100 
Regel:19030 - 201 
Regel:19040 - 79 
Regel:19050 - 71 
Regel:19060 - 231 
Regel:19070 - 137 
Regel:19080 - 119 
Regel:19090 - 151 
Regel:19100 - 107 
Regel:19110 - 58 
Regel:19120 - 210 
Regel:19130 - 110 
Regel:19140 - 138 
Regel:19150 - 102 
Regel:19160 - 162 
Regel:19170 - 142 
Regel: 19180- 58 
Regel:19190 - 173 
Regel: 19200 - 78 
Regel:19210 - 0 
Regel:19220 - 57 
Regel:19230 - 131 
Regel:19240 - 227 
Regel:19250 - 43 
Regel:19260 - 69 
Regel *.19270 - 207 
Regel:19280 - 254 
Regel:19290 - 206 
Regel:19300 - 221 
Regel:19310 - 8 
Regel:19320 - 227 
Regel:19330 - 43 
Regel:19340 - 215 
Regel:19350 - 98 
Regel:19360 - 177 
Regel:19370 - 227 
Regel:19380 - 43 
Regel:19390 - 112 
Regel:19400 - 78 
Regel:19410 - 218 
Regel:19420 - 131 
Regel:19430 - 83 
Regel:19440 - 13 
Regel-.19450 - 43 
Regel:19460 - 134 
Regel:19470 - 131 
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Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


19480 - 77 

Regel:21050 - 221 

19490 - 107 

Regel:21060 - 142 

19500 - 73 

Regel:21070 - 58 

19510 - 83 

Regel:210B0 - 50 

19520 - 246 

Regel:21090 - 198 

19530 - 103 

Regel:21100 - 52 

19540 - 220 

Regel:21110 - 0 

19550 - 221 

Regel:21120 - 221 

19560 - 234 

Regel:21130 - 142 

19570 - 221 

Regel:21140 - 5B 

19580 - 198 

Regel:21150 - 29 

19590 - 77 

Regel *.21160 - 65 

19600 - 227 

Regel:21170 - 240 

19610 - 43 

Regel *.21180 - 183 

19620 - 29 

Regel:21190 - 1B5 

19630 - 63 

Regel:21200 - 0 

19640 - 160 

Regel:21210 - 221 

19650 - 119 

Regel:21220 - 142 

19660 - 57 

Regel:21230 - 58 

19670 - 247 

Regel:21240 - 28 

20000 - 58 

Regel:21250 - 64 

20010 - 254 

Regel *.21260 - 8 

20020 - 90 

Regel:21270 - 183 

20030 - 58 

Regel:21280 - 185 

20040 - 201 

Regel:21290 - 0 

20050 - 1 

Regel *.21300 - 221 

20060 - 119 

Regel:21310 - 142 

20070 - 246 

Regel:22000 - 58 

20080 - 243 

Regel:22010 - 59 

20090 - 125 

Regel:22020 - 141 

20100 - 129 

Regel:22030 - 207 

21000 - 58 

Regel:22040 - 99 

21010 - 51 

Regel:22050 - 142 

21020 - 6 

Regel:23000 - 58 

21030 - 52 

Totaal: 33776 

21040 - 0 
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OUDE NUMMERS 


MSX-GIDS 


De nummers 1,2 en 3 van de MSX Gids zijn 
GEHEEL UITVERKOCHT. Hieronder volgt een 
overzicht van de nummers welke nog wel 
verkrijgbaar zijn met een beknopte 
omschrijving van de inhoud: 

MSX GIDS NUMMER 4 


LISTINGS: THE WALL (breakout) 

MSX SIGN (tekenprogramma) 

TAFELS (tafels overhoren) 

ST-FILE (database voor cassette) 
OVERIJSSEL PER HELICOPTER 
DARTSPEL, GALGJE EN WURM 
Verder de cursus machinetaal deel 2, BIOS 
CALLS overzicht deel 1, TREND JP-130 MSX 
printer en de so-ftware beschrijvingen. 

MSX GIDS NUMMER 5 


LISTINGS: HET VERLATEN KERKHOF 

THE ATTACK OF THE ALIENS 
INDEX-2 (tijdschriften/programma 
archief voor diskette) 

SPEED COPY/CATALOG (diskette) 
Verder de cursus machinetaal deel 3, BIOS 
CALLS deel 2, diverse artikelen over BASIC 
en de vaste rubrieken. 

MSX GIDS NUMMER 6 


LISTINGS: WURZLE (klim en klauter spel) 

MSX KASBOEK (voor diskdrive) 
STARJET (behendigheidsspel) 

VIER OP EEN RIJ (bordspel) 

DUIVEN SCHIETEN 
WERKWOORDEN VERLEDEN TIJD 
Verder de cursus machinetaal deel 4 ? MSX 
compatible met PC, telecommunicatie en 
databanken, diverse stukken over BASIC en 
de vaste rubrieken. 

MSX GIDS EXTRA EDITIE (NUMMER XI) 


LISTINGS: STARWARS (arcade) 

TOWERS OF HANOI 
MAXIT (cijferspel) 

5 OP EEN RIJ (bordspel) 

KAMELEON, YATHZEE, MINI PAC-MAN, 
ANALOGE fcLOK, FACTUREREN en DATA 
LISTER 

Verder de nieuwe Spectravideo X’Press 16 
en de vaste rubrieken. 


Oude nummers zijn te bestellen door over¬ 
making van f 7,95 per exemplaar op Giro 
5036011 t.n.v. J.Herps te Amsterdam. Voor 
Belgie Bfr. 155 op bankrekeningnummer 
235-0430464-87 bij de Generale Bankmaat- 
schappij te Hasselt t.n.v. J.Herps, 
Postbus 10252, 1001 EG Amsterdam. 
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HAASJE OVER (SOLITAIR) 



Beeldscherm: WIDTH 36 

10 •’ ****m***H********** 


20 •’ * * 

30 ’ * Haasje over * 
40 ' * door: * 

50 ’ * Hans Bluijter * 

60 - * * 

70 ’ * (c) 1986 MSX Gids # 

80 ’ * * 


90 ’ ********************* 

100 KEYOFF:CLS:WIDTH40:C0L0R1,3,3:DE 
FINTA-Z ’ * 

110 SCREEN3:OPEN"GRP:"AS#1 
120 CDLDR6:PSET < 40,70):PRINT#1,"HAAS 
JE " 

^30 CDL0R4:PSET < 75,110):PRINT#1,"OVE 

140 G0SUB1680 
150 SCREEN0:COLOR1 

160 LOCATE10,12:PRINT"Wi1 je uitleq 
(J/N)":K$=INKEY$ 

170 IF K$="J" OR K$="j" THEN1000 
180 IF K$="N" DR K$="n" THEN190ELSE1 
60 

190 GOSUB1700:GOTD600 

199 •’ 

200 ’ +++ Knikker verplaatsen +++ 

210 IF STICK(0)=1 THEN300 

220 IF STICK(0)=3 THEN350 
230 IF STICK(0)=5 THEN400 
240 IF STICK(0)=7 THEN450 
250 K*=INKEY* 

260 IF K$=CHR$(18) THEN600 
270 IF KÜ>=CHR$ (27) THEN2090 
280 GDTD210 

300 IF POINT(X,Y-20)=4 AND POINT(X,Y 

-40)=3 THEN310ÈLSE500 

310 GOSUB2360 

320 Y=Y-20:GOSUB2360 

330 Y=Y-20:GOSUB2300 

340 GOSUB700:GOTO200 

350 IF POINT(X+20,Y)=4 AND P0INT<X+4 

0,Y)=3 THEN360ELSÈ500 

360 GOSUB2360 

370 X = X+20:GOSUB2360 

380 X=X+20:GOSUB2300 

390 GGSUB700:GOT0200 

400 IF POINT(X,Y+20)=4 AND POINT(X,Y 

+40)=3 THEN410ELSE500 

410 GOSUB2360 

420 Y=Y+20:GOSUB2360 

430 Y=Y+20:GOSUB2300 


440 GOSUB700:GOTO200 

450 IF POINT(X-20,Y)=4 AND POINT<X-4 

0,Y)=3 THEN460ELSE500 

460 GOSUB2360 

470 X=X-20:GOSUB2360 

480 X=X—20:GOSUB2300 

490 GÜSUB700:GOTO200 

499 ’ 

500 ’ +++ Zet controle +++ 

510 BEEP 


520 PSET(150,150):PRINT#1, "Zet niet" 
530 PSET(150,160):PRINT#1, "Moqeli ik" 
540 GOSUB1680 

550 LINE <150,150)-(255,190),3,BF 
560 GOTO200 

599 •’ 

600 •’ +++ Sprite verplaatsen +++ 

610 GOSUB2350 

620 IF STICK(0)=1 AND YS>20 THEN YS 
= = YS-1: GOTO670 

630 IF STICK(0)=3 AND XS<164 THEN XS 
=XS+1:GOTO670 

640 IF STICK(0)=5 AND YS<164 THEN YS 
=YS+1:GOTO670 

650 IF STICK(0)=7 AND XS>20 THEN XS 

=XS—1:GOTO670 

660 IF STRIG(0) THEN800 

665 K$=INKEY$ 

666 IF K$=CHR$(27) THEN2090 
670 PUTSPRITE 1,(XS,YS),1 
680 GOTO620 

699 ' 

700 * +++ Aantal knikkers over +++ 
710 SC=SC-1 


720 LINE(20,160)-(40,180),3,BF 
730 COLOR1 ’ 

740 PSET (20,160):PRINT#1,SC 
750 RETURN 

799 •' 

800 * +++ Knikker inkleuren +++ 

810 IF POINT(XS+8,YS+8)<>4 THEN900 
820 X=INT((XS+8)Z20+.5)*20 

830 Y=INT((YS+8)/20+.5)*20 
840 GOSUB2300 
850 GOSUB1650 
860 GOTO200 

899 •' 

900 ? +++ Controle op wisselinq +++ 
910 BEEP 

920 F'SET (150, 150) : F'RINTttl, " Incorrect 

o •* 


930 PSET(150,160):PRINT#1,"plaatbepa 
ling" 

940 GOSUB1680 

950 LINE(150, 150)-(255,190) ,3,BF 
960 GOTO600 ' • 

999 ' 


1000 ’ +++ Spel uitleg +++ 

1010 CLS:H$=" Haasje over " 

1020 LOCATE1,0:FORI=1T038:PRINT"*";: 
NEXT J 

1030 LOCATE20-LEN(H$)/2,0:PRINTH$:PR 
INT 

1040 PRINT” Het spel bestaat uit een 
speelbord, met daarop 32 knikkers. 
De bedoeling is om met een knikker 
een andere knikker te" 

1050 F'RINT" slaan, met dien verstand 
e dat op het eind 1 knikker overb 
li j-ft. " : PRINT 

1060 PRINT" Met behulp van het kader 
kun je wisselen, en wel als 

volgt:" 
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1070 PRINT" 1) Besturen met de curso 
rtoetsen." 

1080 PRINT" 2) Wanneer het kader ove 
r de gewenste knikker staat, de 

spatiebalk indrukken, nu 

wordt de knikker rood." 

1090 PRINT" Met deze rode knikker ku 
n je m.b.v. de cursortoetsen de ric 
hting van het slaan aangevenPRINT 
1100 PRINT" Wanneer je van knikker w 
ilt verwisselen dan INS indrukken wa 
ardoor je weer kan wisselen." 

1110 LOCATEB, 23s PRINT"Gee'f toets om 
te beginnen"; 

1120 IF INKEY$="" THEN1120 

1130 CLS:LDCATE10,12:PRINT"Wi 1 je ee 

r\ H oOjr\ f .J /|\j) 11 

1140”k*=ÏnkÉy* 

1150 IF K$="J" OR K$="j" THEN1200 
1160 IF K$="N" OR K$="n" THEN190 
1170 GOTO1140 

1199 * 

1200 ’ +++ Demo +++ 

1210 GOSUB1700 

1220 F0RYS=32T092:GOSUB1660 : GOSÜB167 
0!NEXTYS 

1230 FORX S=32T052:GOSUB1660:GOSUB167 
05 NEXTXS 

1240 X=60: Y=100:GOSUB2300 

1250 GOSUB1650:GOSUB1680 

1260 GOSUB2360 

1270 X=80 5 Y= 100 •. GOSUB2360 

1280 X = 100:Y=100:GOSUB2300 

1290 GOSUB700:GOSUB1680:GOSUB2350 

1300 F0RXS=32T072:GOSUB1660:GOSUB167 

0:NEXTXS 

1310 F0RYS=32T052:GOSUB1660:GOSUB167 
05NEXTYS 

1320 X=80:Y=60:GOSUB2300 

1330 GOSUB1650 s GOSUB1680 

1340 GOSUB2360 

1350 X=80 5 Y=80:GOSUB2360 

1360 X=B0: Y=100:GOSUB2300 

1370 GOSUB700:GOSUB1680 5 GOSUB2350 

1380 FORXS=32T092:GOSUB1660:GOSUB167 

0:NEXTXS 

1390 F0RYS=32T092s GOSUB1660:GOSUB167 
0:NEXTYS 

1400 X = 100:Y=100:GOSUB2300 

1410 GOSUB1650:GOSUB1680 

1420 GOSLIB2360 

1430 X=80:Y=100:GOSUB2360 

1440 X=60:Y=100:GOSUB2300 

1450 GOSUB700:GOSUB1680:GOSUB2350 

1460 F0RYS=32T072:GOSUB1660:GOSUB167 

0:NEXTYS 

1470 X=40:Y=80:GOSUB2300 

1480 GOSUB1650:GOSUB1680 

1490 GOSUB2360 

1500 X=60:Y=80:GDSUB2360 

1510 X=80: Y=B0 :GOSUB2300 

1520 GOSUB700:GOSUB1680:GOSUB2350 

1530 F0RXS=32T092:GOSUB1660:GOSUB167 

0:NEXTXS 

1540 F0RYS=32T072:GOSUB1660:GOSUB167 
0:NEXTYS 

1550 X=100:Y=80:GOSUB2300 
1560 GOSUB1650:GOSUB1680 
1570 GOSUB2360 
1580 X=80:Y=80:GOSUB2360 
1590 X =60:Y=80:GOSUB2300 
1600 GOSUB700 
1610 GOSUB1680 

1620 SCREEN0: LOCATE 13,12:PRINT"Zo n 
u ben jij" 

1630 GOSUB1680 
1640 GOTO190 


1650 X S=32:YS=32:PUTSPRITE1, < X S,YS), 
1:RETURN 

1660 PUTSPRITE1,(XS,YS),1:RETURN 
1670 F0RT=1T025:NEXT:RETURN 
1680 FORT=1TO1000:NEXT:RETURN 

1699 ’ 

1700 ’ +++ Scherm opbouw +++ 

1710 SCREEN2,2:SC=33 

1720 DATA248,128,128,128,128,0,0,0 

1730 DATA0,0,0,128,128,128,128,248 

1740 DATA31,1,1,1,1,0,0,0 

1750 DATA0,0,0,1,1,1,1,31 

1760 RESTORE1720:FÖR I=1T032:READS:S 

$=S$+CHR$(S):NEXT 

1770 SPRITE$(1)=S$ 

1780 FORX=40TO60STEP20 

1790 FORY=80TO120STEP20 

1800 GOSUB2350 

1810 NEXT :NEXT 

1820 FORX=80TO120STEP20 

1830 FORY=40TO160STEP20 

1840 GOSUB2350 

1850 NEXT :NEXT 

1860 FORX=140TO160STEP20 

1870 FORY=80TO120STEP20 

1880 GOSUB2350 

1890 NEXT :NEXT 

1900 X = 100:Y=100:GOSUB2360 

1910 X=80:Y=80 

1920 C0L0R6 

1930 PSET(19,59):DRAW"R40U40R82D40R4 
0D82L40D40LB2U40L40U82" 

1940 PSET(20,60):DRAW"R40U40R80D40R4 
0D80L40D40L80U40L40U80" 

1950 PSET(21,61):DRAW"R40U40R78D40R4 
0D78L40D40L78U40L40U78" 

1960 COLOR1:X S=32:YS=32 
1970 PUTSPRITE1,(XS,YS),1 
1980 COLOR1 

1990 PSET(58,0):PRINT#1,"HAASJE OVER 

I) 

2000 COLOR15 

2010 PSET(150,20):PRINT#1,"INS=" 

2020 PSET(150,30):PRINT#1,"Wisselen" 
2030 COLOR12 

2040 PSET(150,40):PRINT#1,"ESC=" 

2050 PSET(150,50):PRINT#1,"Stoppen" 
2060 GOSUB700 
2070 RETURN 
2080 •’ 

2090 9 +++ Einde +++ 

2100 SCREEN0 :WIDTH40 
2110 IF SC=1 THEN2210 

2120 LOCATE6,6:PRINT"Je had nog";SC; 
"knikkers over." 

2130 IF SC=>10 THEN2170 

2140 IF SC= >5 AND SCC10 THEN2180 

2150 IF SC=3 OR SC=4 THEN2190 

2160 IF SC=2 THEN2200 

2170 LOCATE 3,12:PRINT"Dat is niet 2 

o best, meer oe-f enen. " : GOTO2220 

2180 LOCATE 6,12:PRINT"Dit is een ge 

middelde score.":GOTO2220 

2190 LOCATE 7,12:PRINT"Lang niet sle 

cht gedaan.":GOTO2220 

2200 LOCATE 6,12:PRINT"Hier zit een 

wiskundig brein.":GOTO2220 

2210 LOCATE 6, 12: PRINT"Pro-f i ci at, ko 

ppie, koppie hoor." 

2220 LOCATE 8,22:PRINT"Wi1 je nog ee 
n keer (J/N)" 

2230 K$=INKEY$ 

2240 IF K*="J" OR K*="j" THEN190 
2250 IF K$="N" OR K$="n" THEN2270 
2260 GOTO 2230 

2270 CLS:LOCATE 16,12:PRINT"Gegroet” 
2280 GOSUB1680:END 
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2290 ' 

2300 ’ +++ Sound +++ 

2310 CIRCLE ( X , Y) , 7, <S: PA INT < X, Y) ,6 
2320 S0UND7,1H11000:SOUND1,1:SOUN 
D3,0: SOUNDS, 0: S0UND8, 1 é>: S0UND9, 1 é>: SO 
UND10,16 

2330 SOUND11,B0:SOUND12,50:SOUND13,9 
2340 RETURN 

2^50 ClRCLE(X,Y),7,4:PAINT(X,Y),4:RE 
TURN 

2360 ClRCLE(X,Y),7,3:PAINT(X,Y),3:RE 
TURN 


C0NTR0LETELL1NG 
Regel: 10 - 58 
Regel: 20 - 5B 
Regel: 30 - 58 
Regel: 40 - 58 
Regel: 50 - 58 
Regel: 60 - 58 

Regel: 70 - 58 
Regel: B0 - 58 
Regel: 90 - 5B 
Regel: 100 - 157 
Regel: 110 - 243 
Regel: 120 - 245 
Regel: 130 - 206 
Regel: 140 - 49 
Regel: 150 - 223 
Regel: 160 - 200 
Regel: 170 - 205 
Regel: 180 - 49 
Regel: 190 - 112 
Regel: 199 - 58 
Regel: 200 - 5B 
Regel: 210 - 228 
Regel: 220 - 24 
Regel: 230 - 76 
Regel: 240 - 128 
Regel: 250 - 74 
Regel: 260 - 114 
Regel: 270 - 83 
Regel: 280 - 105 
Regel: 300 - 121 
Regel: 310-220 
Regel: 320 - 204 
Regel: 330 - 143 
Regel: 340 - 242 
Regel: 350 - 169 
Regel: 360 - 220 
Regel: 370 - 201 
Regel: 380 - 140 
Regel: 390 - 242 
Regel: 400 - 219 
Regel: 410 - 220 
Regel: 420 - 203 
Regel: 430 - 142 
Regel: 440 - 242 
Regel: 450 - 15 
Regel: 460 - 220 
Regel: 470 - 202 
Regel: 480 - 141 
Regel: 490 - 242 
Regel: 499 - 58 
Regel: 500 - 5B 
Regel: 510 - 192 
Regel: 520 - 252 
Regel: 530 - 53 
Regel: 540 - 49 
Regel: 550 - 180 
Regel: 560 - 95 
Regel: 599 - 58 
Regel: 600 - 58 
Regel: 610 - 210 
Regel: 620 - 152 
Regel: 630 - 8 

Regel: 640 - 13 
Regel: 650 - 155 
Regel: 660 - 218 
Regel: 665 - 74 
Regel: 666 - 83 
Regel: 670 - 234 
Regel: 680 - 5 

Regel: 699 - 58 
Regel: 700 - 58 


Regel 

Rege 

Regel 

Regel 

Rege 

Regel 

Regel 

Regel 

Regel 

Regei 

Regel 

Rege 

Rege! 

Rege 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


710 - 31 
720 - 91 
730 - 207 
740 - 243 
750 - 142 

799 - 58 

800 - 58 
810 - 2 
820 - 237 
830 - 239 
840 - 159 
B50 - 19 
860 - 95 

899 - 58 

900 - 58 
910 - 192 
920 - 7 
930 - B7 
940 - 49 
950 - 180 
960 - 241 
999 - 58 

1000 - 58 
1010 - 224 
1020 - 108 
1030 - 129 
1040 - 92 
1050 - 203 
1060 - 252 
1070 - 244 
1080 - 20 
1090 - 133 
1100 - 154 
1110 - 174 
1120 - 54 
1130 - 144 
1140 - 74 
1150 - 150 
1160 - 168 
1170- 15 

1199 - 58 

1200 - 58 
1210 - 69 
1220 - 177 
1230 - 135 
1240 - 96 
1250 - 126 
1260 - 220 
1270 - 177 
1280 - 136 
1290 - 208 
1300 - 155 
1310 - 137 
1320 - 76 
1330 - 126 
1340 - 220 
1350 - 157 
1360 - 116 
1370 - 208 
1380 - 175 
1390 - 177 
1400 - 136 
1410 - 126 
1420 - 220 
1430 - 177 
1440 - 96 
1450 - 208 
1460 - 157 
1470 - 56 
1480 - 126 
1490 - 220 
1500 - 137 


Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Rege 

Regel 

Regel 

Regel 

Regel 

Regel 

Rege 

Regel 

Regel 

Regel 

Rege! 

Rege! 

Rege! 

Regel 

Regel 

Regel 

Rege! 

Regel 

Regel 

Rege! 

Rege! 

Rege! 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1510 - 96 
1520 - 208 
1530 - 175 
1540 - 157 
1550 - 116 
1560 - 126 
1570 - 220 
1580 - 157 
1590 - 76 
1600 - 89 
1610 - 49 
1620 - 248 
1630 - 49 
1640 - 85 
1650 - 153 
1660 - 146 
1670 - 93 
16B0 - 60 

1699 - 58 

1700 - 58 
1710 - 6 
1720 - 82 
1730 - 82 
1740 - 112 
1750 - 112 
1760 - 152 
1770 - 180 
1780 - 35 
1790 - 136 
1B00 - 210 
1810 - 96 
1820 - 135 
1830 - 136 
1840 - 210 
1850 - 96 
1860 - 235 
1870 - 136 
1880 - 210 
1890 - 96 
1900 - 197 
1910 - 135 
1920 - 212 
1930 - 84 
1940 - 78 
1950 - 108 
1960 - 214 
1970 - 202 
1980 - 207 
1990 - 17 
2000 - 219 
2010 - 158 
2020 - 203 
2030 - 216 
2040 - 163 
2050 - 126 
2060 - 89 
2070 - 142 
2080 - 58 
2090 - 58 
2100 - 231 
2110 - 244 
2120 - 93 
2130 - 193 
2140 - 157 
2150 - 179 
2160 - 235 
2170 - 198 
2180 - 237 
2190 - 142 
2200 - 148 


Regel: 2210 - 180 
Regel: 2220 - 71 
Regel: 2230 - 74 
Regel: 2240 - 160 
Regel: 2250 - 208 
Regel: 2260 - 117 
Regel: 2270 - 19 
Regel: 2280 - 236 
Regel: 2290 - 58 
Regel: 2300 - 5B 
Regel: 2310 - 219 
Regel: 2320 - 10 
Regel: 2330 - 79 
Regel: 2340 - 142 
Regel: 2350 - 159 
Regel: 2360 - 157 
Totaal: 30567 


FOUTJE 


IN DE MINI-PACMAN (EXTRA EDITIE, PAG. 25) 
ZIT EEN FOUTJE. 

REGEL 1150 MOET ER ALSVOLGT UITZIEN: 

1150 C(J,I)=ASC(MID$(D$,J,D) 

HIER WAS DUS SPRAKE VAN EEN OVERDRACHTS- 
FOUT VAN COMPUTER NAAR PRINTER. OP DE 
CASSETTES EN DISKETTES STAAT DEZE REGEL 
WEL GOED! 



De enige MSX-specialist vooral uw software, boeken en 
tijdschriften. 


Op 20 oktober 1986 bestaan wij alweer 1 jaar. Bij deze 
bedanken wij al onze klanten en relaties voor het in ons 
gestelde vertrouwen en wij hopen dat wij hierop nog lang 
mogen rekenen. 

In de week van 20 26 oktober 1986 vieren wij het berei¬ 

ken van deze mijlpaal en krijgen alle klanten op aankopen 
van software en boeken 10% korting, (uitsluitend in de 
winkel en niet op reeds afgeprijsde sofware). 
★★★*★★★★★★★**★*★★★★★★★★★**★*★★*★★**★*★★★******★*•*•★*★*★★★★★★ 

Nieuws Nieuws Nieuws Nieuws Nieuws Nieuws Nieuws 
Op 1 september j.l. zijn wij gestart met onze databank 
”MSX DATA"’, bereikbaar tussen 18.00 en 09.00 uur. 
Tel. 020-123206. Hierin vindt u informatie over soft¬ 
ware, boeken, hardware, Top 20, nieuws, Tips, gratis 
Telesoftware, PC’s en PC software. 
************************************************************ 

Vespuccistraat 48 van Kinsbergenstraat 62 

1056 SM Amsterdam 1057 PT Amsterdam 

Tel. 020-1 23206 Tel. 020-1 83001 

Geopend van 10.00-18.00 uur 

maandag van 13.00-18.00 
koopavond tot 21.00 uur. 
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MACHINETAAL OP DE MSX (slot) 


DEEL 5: De finishing touch 

In dit laatste deel van de machinetaal- 
cursus gaan we in op zaken die U vooral 
zult gaan gebruiken wanneer U ervaring 
heeft opgedaan in het machinetaalprogram¬ 
meren. De Z80 microprocessor kent bij¬ 
voorbeeld instrukties die het mogelijk 
maken losse bits in een register te testen 
of te wijzingen en instrukties die de BCD- 
notatie ondersteunen. Ook zullen we in 
deze les het begrip "hooks" leren kennen: 
een nieuwe manier om BASIC aan machinetaal 
te koppelen, met verrassende mogelijkhe¬ 
den. Als "dessert" van deze cursus een 
programma met alle behandelde stof erin 
verwerkt; een machinetaal listingtester! 

- B.C.D. notatie 

Omdat een computer alleen met (binaire) 
getallen kan werken, moeten letters en 
leestekens omgezet worden naar getalcodes. 
Dit gebeurt volgens de algemeen gehan¬ 
teerde ASCII tabel (American Standard Code 
for Information Interchange). Iedere code 
is 1 byte groot zodat 256 tekens kunnen 
worden vastgelegd. Tot deze tekens behoren 
de hoofd- en kleine letters, cijfers, 
leestekens, spatie, return, linefeed en 
bij MSX ook de grafische tekens. 

Wil men alleen de cijfers 0 t/m 9 opslaan 
in het geheugen, dan is 1 byte per getal 
wat overdreven: met 4 bits kan ieder 
cijfer worden gevormd (er blijven zelfs 
2~4 - 10 = 6 combinaties onbenut). Het 
cijfer "O" wordt door de binaire combina¬ 
tie 0000 gevormd, ”1" door 0001 enz. De 
term BCD komt van Binairy Coded Decimal; 
binair gecodeerd decimaal getal. Bij BCD 
worden, in tegenstelling tot bij hexadeci- 
male getallen, de combinaties "1010” t/m 
"1111" niet gebruikt. Voegt men twee 4 
bits BCD getallen samen in een byte dan 
spreekt men van packed BCD; in een byte 
kan een BCD-getal van 0 t/m 99 gevormd 
worden. 

De voordelen van het decimale stelsel 
zijn bekend: in het dagelijkse leven 
rekenen we decimaal. De computer heeft 
echter wat moeite met dit stelsel en moet 
een aantal conversieberekeningen uitvoe¬ 
ren. Dit gebeurt met de instruktie DAA: 
Decimal Adjust Accumulator. Deze instruk¬ 
tie, geplaatst na een 8 bits ADD of SUB 
instruktie, zorgt ervoor dat het resultaat 
wordt aangepast aan de BCD notatie. 

Vb 1. Optelling in BCD: 


LD A,79 

79 

ADD A,12 

12 


— ( + 

voorlopig resultaat 

8B 

DAA 


resultaat na DAA 

91 


Wilt U twee meer dan tweecijferige BCD 
getallen optellen of aftrekken, dan ge¬ 
bruikt U voor de twee laagstwaardige bytes 
ADD/ SUB, en voor de overige ADC/ SBC. 


Vb 2. De BCD getallen 5017 (opgeslagen op 
adres (A000 en A001) en 2340 (op 
adres (A002 en A003) optellen. 


LD IX,A000 
LD A,(1X40) ; 
LD B,(IX+2) ; 
ADD A,B ; 

DAA ; 

LD (IX+4),A ; 
LD A,(IX+1) ; 
LD B,(IX+3) ; 
ADC A,B ; 
DAA ; 

LD (IX+5),A ; 


LSB eerste getal 
LSB tweede getal 
optellen met ADD 
aanpassen aan BCD 
resultaat LSB in A004 
MSB eerste getal en 
MSB tweede getal met 
evt. carry optellen 
aanpassen aan BCD 
resultaat MSB in A005 


- De instrukties RLD en RRD 


RLD A N ^ h ( ML ) 

't— _ 1 1 

RRD A hT\ |-,-rrj T^M^TI(hl) 

T. - 


Vooral bij BCD-notatie is het vaak handig 
gebruik te maken van de instrukties RLD en 
RRD. Deze instrukties verschuiven groepjes 
van 4 bits (1 BCD cijfer) tussen de accu 
en het adres aangewezen door HL. 


- Hooks 

Vorige les zagen we twee methoden waar¬ 
door het MSX-systeem flexibel uitbreidbaar 
is , nl. het creeeren van extra devices 
(zoals "cas:", "grp:" en "lpt:") en het 
"call" statement in BASIC. Een derde 
methode is het verleggen van "hooks", 
boven in het computer geheugen. 

Een "hook" bestaat uit 5 bytes in het 
RAM-geheugen gebied van FD9A tot FFC5 die 
normaal gesproken met "C9" (de code voor 
RET) zijn gevuld. Vanuit diverse ROM rou¬ 
tines in BIOS en BASIC worden de hooks 
aangeroepen als subroutine (met CALL). 
Omdat de eerste instruktie die de computer 
op een hook tegenkomt normaal "RET" is, 
wordt direct weer teruggesprongen. We 
kunnen deze "RET" instrukties door een 
"JP" vervangen, die een sprong naar een 
zelfgemaakt M-taal programma verzorgt. Dan 
worden, iedere keer als we een BASIC com¬ 
mando intypen, tevens de opdrachten uit 
het stukje M-taal uitgevoerd. 


- Veel gebruikte hooks 

FD9F - FDA3 ; Wordt iedere 1/50 sec aange¬ 
sproken 

FE0D - FE11 ; BASIC commando "CMD" 

FF11 - FF15 ; Hoofdlus directe invoer 
(zie listingtester) 

FF84 - FF88 ; "WIDTH" 

FF89 - FF8D ; "LIST" 

FFC0 - FFC4 ; “SCREEN” 

Vb 3. Beveiliging tegen listen: geef een 
"Illegal function call" (JP 475A) 
wanneer "LIST" wordt ingetypt. 
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POKE &HFF8A,&H5A 
POKE &HFF8B,&H47 
POKE &HFF89,&HC3 

Let U op het volgende: de eerste byte van 
een hook mag pas worden veranderd, als de 
overige bytes zijn aangepast, anders wor¬ 
den verkeerde opdrachten uitgevoerd als 
nog niet alle gegevens zijn ingetypt. Bij 
veel hooks heeft de computer gegevens in 
de registers staan. Deze mogen dus niet 
zondermeer worden gewijzigd. Verstandig is 
het, alle registers die U in Uw aan te 
roepen MT-programma gaat gebruiken, eerst 
op de stack te "pushen". Aan het einde van 
het programma, voordat de "RET" instruktie 
wordt uitgevoerd, geeft U de registers de 
oorspronkelijke inhoud weer terug met de 
instruktie "POP". 

- Bit instrukties 

Vorige les zagen we, dat met behulp van 
de logische bewerkingen AND en OR een aan¬ 
tal bits in een byte apart kunnen worden 
genomen: bijvoorbeeld de laagste 4 bits. 

Vb 4. Accu xxxxxxxx 
AND OF 00001111 


Accu na bewerking: OOOOxxxx 

Willen we alleen de laagste vier bits 
testen, dan scheiden we deze van de 
overige bits m.b.v. een "AND" instruktie. 
Hierna kan met de instruktie "CP” de test 
plaatsvinden. De oorspronkelijke inhoud 
van reg A is door deze bewerking verloren 
gegaan. 

Willen we 1 bit uit een byte testen, dan 
kunnen we gebruik maken van de "BIT" 
funktie. Deze funktie is te vergelijken 
met de "CP” funktie, die een hele byte 
test. Beide funkties testen zonder de 
oorspronkelijke inhoud aan te tasten. De 
"BIT" funktie past de zero flag aan naar 
gelang de inhoud van de geteste bit. Is 
het bit "0" dan wordt de zero flag aktief 
(z-flag wordt ”1"), is de bit "1" dan 
wordt de z-flag gereset (z-flag wordt 
"0”). De bits in een byte worden genummerd 
van 0 tot 7, waarbij 0 de meest rechtse 
(minstwaardige) bit is. 

Vb 5. Test of een getal in register D 
oneven is (bit 0 is dan "1") 

BIT 0,D 
JR NZ, oneven 

Op dezelfde manier als een bit te testen 
is, kan hij ook gewijzigd worden. De 
funktie "SET" maakt een bit binnen een 
byte "1”. De funktie "RES" (van "RESET") 
maakt een bit "0". 

Vb 6. In register H bevindt zich een 
hoofdletter in ASCII codering. Zet 
deze om in een kleine letter. 

SET 6,H 


Kleine letters naar hoofletters; 
RESET 6,H 

- Secundaire sloten 

De vorige keer heeft U kunnen lezen dat 
een MSX-computer de "bankswitching" tech¬ 
niek gebruikt om met meer dan 64 K geheu¬ 
gen te kunnen werken. De werking van 
primaire sloten, zoals gebruikt bij MSX-I 
machines, is toen uitgelegd. Met de komst 
van de SVI-738 X'press en de MSX-II com¬ 
puters is ook de mogelijkheid van secun¬ 
daire sloten benut. In dit deel zal ik U 
wat meer over deze uitgebreide bankswitch 
techniek vertellen. 

Een MSX machine beschikt over 4 primaire 
sloten. Het is echter mogelijk 1 of meer 
van deze primaire sloten te vervangen door 
vier secundaire sloten. Bij primaire 
sloten bepaalt 1/0 poort &HA8 welk slot 
aktief is. Bij secundaire sloten bepaalt 
geheugenplaats FFFF welk secundair slot 
voor de computer "zichtbaar" is. De code 
op geheugenplaats FFFF wordt op eenzelfde 
manier samengesteld als bij 1/0 poort A8. 
Nu weet U hoe U een secundair slot kunt 
selecteren. Rest de vraag of een primair 
slot in vier secundaire sloten is omgezet 
of niet. De computer heeft bij het opstar¬ 
ten gekeken of secundaire sloten aanwezig 
zijn (deze inverteren namelijk de data op 
adres FFFF). In een tabel op adres FCC1 
t/m FCC3 staat voor elk primair slot een 
code: &H80 indien dit slot is omgezet in 4 
secundaire sloten, 0 als dit niet het 
geval is. Op adres FCC4 t/m FCC8 is de in¬ 
houd van adres FFFF voor elk primair slot 
gekopieerd. Indien een primair slot is om¬ 
gezet in 4 secundaire sloten, staat hier 
dus de code die aangeeft welk secundair 
slot werkzaam is. 

Vb 7. We onderzoeken de geheugenopbouw van 
de Spectravideo X'press (32K BIOS en 
BASIC ROM, 64K RAM, 16K DISK ROM, 8K 
RS232-ROM) 

PRINT HEX$(INP(&HA8)) levert ons 50 = 
01010000 bin. 

Dus: BIOS en BASIC ROM (adres 0000-7FFF) 
in slot 0, RAM (adres 8000-FFFF) in slot 1 

We onderzoeken of de X'press secundaire 
slots gebruikt: 

PRINT HEX$(PEEK(&HFCC1)) geeft 0 
PRINT HEX$(PEEK(&HFCC2)) geeft 0 
PRINT HEX$(PEEK(&HFCC3)) geeft 0 
PRINT HEX$(PEEK(&HFCC4)) geeft 80 

Hieruit blijkt: slot 0, 1 en 2 zijn gewone 
primaire sloten, slot 3 is omgezet in 
secundaire sloten. 

Adres &HFCC8 geeft nu aan welk van de vier 
secundaire sloten zichtbaar is. 

PRINT HEX$(peek(&HFCC8)) geeft F4=11110100 


38 





De DISK-ROM is aktief in gebied 4000-7FFF. 
Dit is het secundaire slot 1 (01 bin) 


Tot ziens!, 

Mare Spierenburg 
- De machinetaal listingtester 

Dit programma maakt gebruik van de hook 
HDIRD op adres FF11—FF15. Deze hook wordt 
aangeroepen wanneer de return toets wordt 
ingedrukt. Vanaf adres F41F is de laatst 
ingetypte regel in token-vorm opgenomen, 
d.w.z. dat ieder BASIC commando een eigen 
code heeft gekregen. De listingtester telt 
deze codes op. Wordt de code voor REM 
(143) of code 0 (einde regel) gevonden, 
dan wordt de som van de token codes op het 
scherm gezet. Op adres F3B1 is het maximum 
aantal regels op het scherm in te stellen. 
Dit getal wordt voor het printen 1 ver¬ 
hoogd om de checksum in de funktietoetsen- 
regel te kunnen plaatsen. Deze machine¬ 
taal versie geeft natuurlijk dezelfde 
codes als de BASIC listingtester in dit 
blad. 


D000 

DD21llFF 


LD IX.//FF 11 


D004 

DD360116 


LD (IX+1),#16 'JP D000' 

D008 

DD3602D0 


LD (IX+2),#D0 op hook 

DOOC 

DD3600C3 


LD (IX+0),#C3 adressen 

D010 

CDC300 


CALL #C3 

cis 

D013 

CDCFOO 


CALL #CF 

keyon 

D016 

F5 


PUSH AF 

bewaar oude 

D017 

C5 


PUSH BC 

oude inhoud 

D018 

D5 


PUSH DE 

van regis¬ 

D019 

E5 


PUSH HL 

ters . 

D01A 

AF 


XOR A 

som = 0 

D01B 

3278D0 


LD (SOM),A 


D01E 

211FF4 


LD HL,#F41F 

HL wijst 

D021 

46 

NXT 

:LD B,(HL) 

naar token 

D022 

78 


LD A,B 

regel* 

D023 

FE 00 


CP 0 

einde rgl 

D025 

280D 


JR Z,CFR 

of REM dan 

D027 

FE8F 


CP 143 

dan 'som" 

D029 

2809 


JR Z,CFR 

printen. 

D02B 

1178D0 


LD DE,SOM 

som = som 

D02E 

IA 


LD A,(DE) 

+ token 

D02F 

80 


ADD A,B 


D030 

12 


LD (DE ) ,A 


D031 

23 


INC HL 

volgend 

D032 

18ED 


JR NXT 

token. 

— 

printroutine 



D034 

2ADCF3 

CFR 

:LD HL,(F3DC) 

plaats cur¬ 

D037 

E5 


PUSH HL 

sor bewaren 

D038 

3E19 


LD A,25 

in funktie- 

D03A 

32B1F3 


LD (F3B1),A 

toets rgl. 

D03D 

212301 


LD HL,#123 

locate 24,1 

D040 

CDC600 


CALL #C6 


D043 

1E64 


LD E,100 

honderdtal¬ 

D045 

CD65D0 


CALL DEC 

len printen 

D048 

1E0A 


LD E,10 

tientallen 

D04A 

CD65D0 


CALL DEC 

printen. 

D04D 

1E01 


LD E,1 

eenheden 

D04F 

CD65D0 


CALL DEC 

printen. 

D052 

3E20 


LD A," ” 

spatie na 

D054 

CDA200 


CALL #A2 

getal. 

D057 

El 


POP HL 

cursor op 

D058 

CDC600 


CALL #C6 

oorspr. 

D05B 

3E18 


LD A,24 

plaats. 

D05D 

32B1F3 


LD (#F3B1),A 


D060 

El 


POP HL 

oude inhoud 


D061 Dl POP DE 

D062 Cl POP BC 

D063 F1 POP AF 

D064 C9 ret 

print decimaal getal — 
D065 1630 DEC:LD D,"0" 

D067 3A78DO TEL:LD A,(S0M) 

D06A 93 SUB E 

D06B 3806 JR C,PRT 

D06D 3278D0 LD (S0M),A 

D070 14 INC D 

D071 18F4 JR TEL 

D073 7A PRT:LD A,D 

D074 CDA200 CALL #A2 

D077 C9 RET 

D078 00 SOM:DEFB 0 


registers 

terug. 


getal="0" 
zolang ge- 
tal>100 
resp 10 of 
1 => getal 
= getal + 1 
som = som - 
100 (of 10 
resp 1) 
print getal 


10 

20 

30 

A 

40 

TA! 

50 

60 

VAL 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

1B0 

190 

200 

210 

220 

230 

240 

250 


## machinetaal1istingtester ## 
CLEAR 200, &HD000 

S=0s FDR I=?<HD000 TO 8<HD078:READ A 
i=VAL < "8<H"+A$> : S=S+ A: NEXT 
IF 8014333 THEN PR INT "FOUT IN DA 
":STOP 
RESTORE 80 

FuR I =?<HD000 TO &HD07B: READ A*:A= 
< "8<H"+A*) :POKE I,A:NEXT 
DEFUSR=?<HD000: A=ÜSR (0) : NEW 
DATA DD,21,11,FF,DD,36,01,16 
DATA DD,36,02,D0,DD,36,00,C3 
DATA CD,C3,00,CD,CF,00,F5,C5 
DATA D5,E5,AF,32,78,D0,21,1F 
DATA F4,46,7S;FE;00,28,0D,FE 
DATA 8F,28,09, 11,78,D0, IA, 80 
DATA 12,23,18,ED,2A,DC,F3,E5 
DATA 3E,19,32,BI,F3,21,23;01 
DATA CD,C6,00,IE,64,CD,65,D0 
DATA IE,0A,CD,65,D0,IE,01,CD 
DATA 65,D0,3E,20;CD,A2i00,E1 
DATA CD,C6,00,3E,18,32,BI,F3 
DATA El,Dl,Cl,Fl,C9,16,30,3A 
DATA 78,D0,93,38,06,32,78,D0 
DATA 14,18,F4,7A,CD,A2,00,C9 
DATA 00 

’Eerst saven, dan pas RUNnen! 


FILOTEL 

Het Groningse softwarehuis Filosoft 
is gestart met een databank volgens 
het Viewdata-protocols FILOTEL. 

Iedere huiscomputeraar die met 
Viditel kan communiceren, kan ook 
-en zonder 1idmaatschapskosten e.d.- 
met FILOTEL kontakt opnemen. 

De miniatuur-Viditel bevat 800 
pagina's nieuws en tips voor 
gebruikers. Er is ook plaats inge¬ 
ruimd voor een prikbord, waarop men 
mededelingen voor collega- gebrui¬ 
kers kwijt kan. 

FILOTEL is 24 uur per dag bereikbaar 
onder telefoonnummers 050-145174 

Nadere inlichtingen kunnen worden 
verstrekt door: 

Henk Menninga (050-13746). 
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VPOKE sneller dan PUTSPRITE? 


Het artikel "Hoe gebruik ik de video ram' 
van Martin Buysse in MSX-Gids nr.5 heb ik 
erg op prijs gesteld, omdat het me -net 
andere «artikelen uit de "Basic ru~ 
briek — de mogelijkheid bood wat dieper in 
mijn computer te duiken• Al duikende merk- 
tn ik echter, dat het tweede gedeelte van 
dit artikel (dat over de besturing van 
sprites handelt) enige correctie of aan¬ 
vulling behoeft. 

Volgens Buysse gaat de besturing van 
sprites sneller met de vpoke-instructie 
dan met de putsprite-instructie. De tweede 
listing in zijn artikel zou dit laten 
zien. Om met vpoke een sprite te besturen 
moet op een bepaalde geheugenplaats de Y— 
resp. de X-coordinaat van de sprite be¬ 
schreven worden. In Buysse^s programma 
gebeurt dat in regel 60: 

vpoke &H1B01,1. 

Hoe hij aan dit hexadecimale getal kwam, 
was mij overigens een raadsel, totdat ik 
zijn artikel uit MSX-Gids nr.3 erop na¬ 
sloeg: &H1B01 verwijst naar plaats 6913, 
waar de X-coordinaat van de eerste sprite 
wordt opgeslagen. (Voortaan graag wat meer 
uitleg of anders een verwijzing!) 

worc ^ t X-coordinaat geschreven, 
op 6916 komt de Y-coordinaat van de tweede 
sprite enz. (Vanwaar eigenlijk die voor¬ 
keur voor onleesbare hexadecimale getal¬ 
len? Voor de snelheid maakt het niets 
uit!) 

Een run van Buysse"s programma laat zien, 
dat de vpoke-instructie inderdaad tot een 
snellere spritebeweging leidt (27 tegen 59 
tijdeenheden, mits I als integer gedefi¬ 
nieerd wordt en nextl vervangen wordt door 
next). 

Er schuilt echter een addertje onder het 
P u tsprite-instructie op regel 
140 van Buysse"s programma (komt overeen 
met regel 440 van het programma hieronder) 
worden kleur en spritenummer herhaald 
(15,0). Dat is echter niet nodig: bij 
weglating neemt de computer automatisch 
aan, dat het gaat om kleur en nummer van 
de eerder voor spritescherm 0 gedefinieer— 
de sprite. Dat betekent, dat de computer 
255 x 2 constanten minder hoeft te lezen. 
Weglating van deze constanten verhoogt de 
snelheid dan ook aanzienlijk: 59 wordt nu 
40 in de versie van Buysse"s programma 
hieronder. 

Nog steeds is er echter sprake van een 
hogere snelheid bij de vpoke-instructie. 
Toch mag hieruit niet geconcludeerd wor¬ 
den, dat vpoke ten alle tijden sneller 
gaat. In Buysse"s voorbeeldprogramma wordt 
namelijk alleen de X—coördinaat geva— 
rieerd, terwijl de Y—coördinaat constant 
blijft. Bij gebruik van een vpoke—instruc— 
tie hoeft dan maar 1 variabele gelezen te 
worden, terwijl bij de putsprite-instruc¬ 


tie steeds 1 variabele en 1 constante 
gelezen moeten worden. Het zou dus kunnen 
zijn, dat in die gevallen, waarin zowel de 
X- als de Y-coordinaat gevarieerd moeten 
worden, de putsprite-instructie minstens 
zo snel gaat als de vpoke-instructie. In 
dat geval zijn er immers 2 vpoke's nodig 
in plaats van 1. 

Met het volgende programma kan men deze 
vraagstelling onderzoeken. Hierin worden 
twee identieke sprites gedefinieerd, die 
zich van linksboven naar rechtsonder moe¬ 
ten bewegen, resp. van rechtsboven naar 
linksonder. De eerste sprite is wit (15), 
de tweede geel (11). Als ze elkaar kruisen 
(onspritegosub) wordt de tweede groen (2). 
In regel 90-100 geschiedt de voortbeweging 
met behulp van putsprite, in regel 190-220 
met vpoke. De tijd die dit kost wordt met 
elkaar vergeleken (Tl tegen T2). 

(Type eerst in: keyl,”chr$(&H", om met 
behulp van de eerste funktietoets regel 20 
snel in te typen!) 


10 SCREEN2:DEFINTI, M 
15 'GOTO 310 

20 SPRITE* (0) =CHR* ( S<H3C ) +CHR* (?<H42) + 
CHR* (&HA5) +CHR* <?<H81) +CHR* (8<H99) +CHR 
* < S<HA5) +CHR* < &H42) +CHRS <S/H3C) 

30 SPRITE*(1) =SPRITE*<0) 

40 SPRITEGN: TIME=0 
50 PUTSPRITE0, (0,0),15,1 

60 PUTSPRITE1,(255,0),11,2 

70 FORI=0TO255 
80 1-1= .75*1 
90 PUTSPRITE0, (I,M) 

100 PUTSPRITEl,<255-1,M> 

110 ONSPR ITEGOSUB280 ' 

120 NEXT 
130 T1=TIME 
140 TIME=0 

150 PUTSPRITE0, (0,0),15,1 

160 PUTSPRITEl, (255,0),11,2 

170 FORI=0TO255 

180 11=. 75*1 

190 VP0KE6912,M 

200 VP0KE6913iI 

210 VP0KE6916,M 

220 VPOKE6917;255-1 

230 ONSPRITEGÖSUB2B0 

240 NEXT 

250 T2=TIME 

260 SCREEN0 :L0CATE3,10:PRINT"T1=":T1 
S" T2="-,T2 ’ 

270 END 

280 PUTSPRITEl,<255-1,M),2,2: ’subro 
utine 

290 RETURN 

310 'programma M.Buysse—MSX-qids 5 
320 SPRITE*(0)=CHR*(255)+CHR*(255) 

330 PUTSPRITE0,(0,50),15,0 

340 TI ME=0 

350 F0RI=1T0255 

360 VPOKE6913,I 

370 NEXT 

380 T1=TIME 

390 FORW=1TO50 

400 NEXTW 


410 PUTSPRITE0, (0,50),15,0 

420 TI ME=0 

430 FDRI=1T0255 

440 PUTSPRITE0, (1,50) 

450 NEXT 
460 T2=TIME 
470 GOTD260 

Een run van dit programma laat zien, dat 
de putsprite-instructie 193 tijdeenheden 
nodig heeft, terwijl de dubbele vpoke- 
instructie 202 tijdeenheden behoeft. Bij 
variatie van beide coördinaten is put- 
sprite dus sneller dan vpoke. 

Als men het '-teken in regel 15 weglaat, 
wordt er naar een verbeterde versie van 
het programma van Buysse gesprongen. Als 
men regel 440 onveranderd laat, is T2 40. 
Wordt er ,15,0 aan toegevoegd, dan krijgt 
men een T2 van 59. 

P.PRUDON. 

N.v.d.R.: Bij het runnen van dit programma 
op de X'Press blijkt, dat deze bij de 
originele versie 248 tijdeenheden nodig 
heeft bij de putsprite-instructie en bij 
de vpoke-instructie 277. Voor de Philips 
MSX2 liggen deze tijden op 207 en 266, 
terwijl de JVC-MSX1 het dichtst bij de 
door P.Prudon opgegeven tijden komt met 
195 en 204. 

Na weglating van de apostroph in regel 15, 
wordt T2 bij de verschillende machines: 


Regel 440 onver.: Regel 440 +,15,0: 


X'Press 

61 

X'Press 

81 

Philips 

44 

Philips 

65 

JVC 

42 

JVC 

61 


MSX-GIDS 

BEWAARBANDEN 


Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn 
-uiteraard- geel en hebben het MSX-Gids 
logo (in zwarte opdruk) op de voorzijde en 
op de rug. In deze mappen kunnen minstens 
6 exemplaren van de Gids opgeborgen 
worden. De bladen worden in de map 

vastgezet met speciale (bijgeleverde) 
metalen klemmen. Hierbij wordt het blad 
niet beschadigd! De prijs van deze 
bewaarband is 19,95 per stuk. Deze prijs 
is inclusief BTW en verzendkosten. 

De banden zijn te bestellen door 
overmaking van 19,95 per stuk op Giro: 
5036011 t.n.v. J.Herps te Amsterdam onder 
vermelding van ‘bewaarband’. 

Voor Belgie is dit Bfr. 365 op bankreke¬ 
ning 235-0430464-87 bij de Generale Bank 
te Hasselt t.n.v. J.Herps, Postbus 10252, 
1001 EG Amsterdam onder vermelding van 
‘bewaarband‘• 





NFILOSOFT 

■serieus in software 


TASWORD M5X-TWEE1 

De beste tekstverwerker voor MSX, nu in een geheel nieuwe versie 
voor MSX—2 computers. Tot 80 kolommen op het scherm en ook op de 
P r i n ter. Vele nieuwe mogelijkheden: headers en footers, meerdere 
prints, automatische pagina—nummering, 'moeilijk’ formatteren, 5 
kladbloks, een tweede karakterset, achtvoudige 'TAB’-instelling, 
GOTO regelnr., etc., etc. Optimaal werken met diskdrives (ook 
voor 2 drives, automatische back-up, saven, laden, wissen). Dit 
fantastische programma is het dubbele waard van: * disk f 149,00 
Opgelet: bij inwisseling v.d. originele Ned. Tasword voor MSX-1 
en ingezonden servicekaart (!) betaalt u voor TASWORD MSX-TWEE 
slechts de helft van de nieuwprijs: * disk f 75,00 

VERWACHT: DE BOEKHOUDER-MSX! 

Voor MSX-2 computers is dit een ideaal boekhoud programma, dat de 
van andere programma's bekende mogelijkheden biedt, plus vele 
extra's, xxx grootboekrekeningen, yyy mutaties per keer invoeren 
26 posities voor omschrijvingen, B.T.W. berekenen via een druk 
op de knop, etc. Vanzelfsprekend: uitdraai van ingevoerde muta¬ 
ties, tussentijdse resultatenrekening/balans, overzichten per 
rekening, doorboeken van een mutatierun, afsluiten periode, een 
proef/saldi/eindbalans en resultatenrekening, B.T.W.-aangifte. 
Alle printeruitvoer kan naar eigen inzicht worden geregeld. DE 
BOEKHOUDER is voorbereid op het gebruik van extra modules voor 
o.a. debiteuren, crediteuren, salarissen, periodieke lasten, 
etc. (nog in ontwikkeling). Prijs: ca. * disk f 199,00 

NIEUW! EERSTE HULP (CARETAKER) 

Afgelopen met laad-fouten bij gebruik van een cassetterecorder! 
M.b.v, dit programma stelt u zelf de koppen van uw recorder 
perfekt af op de (kritische) laadvereisten van de MSX-coraputer. 
Een miniatuur-schroevedraaier wordt bijgeleverd. cass f 29,00 

TASWORD MSX 

DE tekstverwerker voor alle MSX-1 computers, werkt ook op MSX-2 
(!), en met alle printers. 64 karakters per regel op het scherm. 
Geheel Nederlandstalig, met duidelijke handleiding en service— 
kaart. Prijs op disk: f 115,- cass (incl. diskversie) f 95,00 

ZELF PROGRAMMEREN 

HISOFT UITGAVEN —(**) In Basic programmeren op een MSX heeft zo 
z'n beperkingen. Wanneer de computer sneller en efficiënter moet 
werken, is het beter direkt in machinetaal, of in een hogere 
programmeertaal zoals Pascal of C te schrijven. Uit Engeland 
importeert Filosoft daartoe de kwaliteitsprodukten van Hisoft, 
waarbij eventuele updates van deze programma's (en de service 
erop!) meestal door ons verzorgd kunnen worden. Het pakket van 
Hisoft voor MSX ziet er als volgt uit: 

HISOFT DEVPAC - (dis-)Assembler en monitor cass f 79,00 

HISOFT DEVPAC 80 - (dis-)Assembler en monitor disk f 175,00 

HISOFr PASCAL - cass f 125,00 HISOFT PASCAL 80 - disk f 175,00 

HISOFT C++ - disk f 175,00 AZTEC C compiler - disk f 725,00 

EDUKATIEF 

GELD -Edukatief programma met spelelementen 
DEELSOM 
ALFABET 
PROCENTEN 
ENGLISH W0RDS 
OPTELLEN TOT 20 
OPTELLEN EN AFTREKKEN 
CIJFEREND VERMENIGVULDIGEN 
DR1E-IN-EEN -3 edukatieve programma's (w.o. 
grote scrollende kaart van Nederland) op een 
REDEKUNDIG ONTLEDEN -Zeer uitgebreid edukati 
de Nederlandse taal. Toepassing op school en 

DIVERSEN 


cass f 34,50 
cass f 34,50 
cass f 34,50 
cass f 34,50 

* cass f 34,50 

* cass f 34,50 
cass f 34,50 
cass f 34,50 

Aardrijkskunde met 
cass f 34,50 
ef programma voor 
thuis, cass f 59,00 


I TJING -Mooie computerversie v.h. Chinese orakel disk f 79,00 
BRIDGE -Nederlands bridgen, ook als tutor cass f 59,00 
MSX-64 PLUS -Geeft 64 tekens per regel in uw eigen programma's 
via een nieuw Basic-commando: FPRINT. cass f 34,50 

VIDITELLERS OPGELET 

FILOTEL (050—145174) is onze eigen databank, en 24 uur per dag 
bereikbaar voor iedereen, die apparatuur heeft om met Viditel te 
bellen (abonnement niet nodig)! 

INFORMATIE 

Programma's, gemerkt met 1 ster (*) zullen binnenkort leverbaar 
zijn, 2 sterren (**) betekent dat een programma (enige) kennis 
van de Engelse taal vereist. Meer informatie over onze program¬ 
ma's staat in de gratis folder. Vraag 'm aan (vermeldt wel het 
merk van uw computer) d.m.v. een briefkaartje naar: Postbus 1353 
9701 BJ Groningen, of telefonisch: 050-137746. Filosoftprodukten 
vindt u in de goede computerzaak, maar zijn ook rechtstreeks te 
bestellen: door storting van het bedrag + f 3,50 verz.kosten op 
giro 20792 t.n.v. Filosoft, Groningen. Telefonische bestellingen 
worden (tegen meerprijs) zo mogelijk nog dezelfde dag verzonden. 
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Software 

.i 

t 

De C&R Software MSX-screendump is een vol¬ 
ledig machinetaal utility voor het maken 
van een afdruk van het grafische scherm 
(screen 2) op een matrix printer. Daar er 
nogal wat verschillen zijn tussen de di¬ 
verse matrix printers wordt dit programma 
dan ook in verscheidene uitvoeringen op de 
markt gebracht. Er is een screendump le¬ 
verbaar voor de volgende printers: 


P 

Standaard MSX (Philips VW0020, Canon etc.) 
Betere MSX (Philips VW0030, Seikosha SP 
1000MX). 

Smith Corona (ook o.a. AVT). 

Tandy 

Epson compatible (Epson, Star, Trend, Fax 
etc.). 


Andere versies zijn op aanvraag leverbaar. 

Het programma installeert zichzelf tijdens 
het laden en wordt geactiveerd d.m.v. de 
TAB- of ESC toets. Hier dient dus wel 
rekening mee gehouden te worden bij 
programma's waar deze toetsen ook worden 
gebruikt. De geheugenruimte die het 
programma gebruikt ligt tussen COOOH en 
C580H; hoog genoeg voor Basicprogramma's 
tot 16K en laag genoeg om zonder problemen 
diskdrive of andere machinetaal routines 
te kunnen gebruiken. 


SPRITES: 

Alle sprites worden afgedrukt zoals ze op 
het scherm zichtbaar zijn. Deze functie is 
uitschakelbaar hetgeen een kleine tijd¬ 
winst kan opleveren. 

Verder heeft het programma nog een 
mogelijkheid om het afdrukformaat iets te 
wijzigen en is er een optie om meerdere 
malen over elkaar heen te drukken. Met dit 
laatste kunnen oude (grijze) linten toch 
nog een redelijk tot goed resultaat geven. 

Het programma wordt op cassette geleverd 
met een Nederlandse handleiding die zeer 
uitgebreid is en waar ook opgegeven wordt 
hoe dit programma naar disk kan worden 
gezet. (Was dat maar met meer programma's 
het geval). 

De kwaliteit is goed, de snelheid is vrij 
hoog, maar bij de versie voor de Trend 
printers sloten, in eerste instantie, de 
kolommen niet mooi aan. Er bleef een dunne 
horizontale witte streep tussen de 
geprinte banen zichtbaar. Overleg met de 
leverancier gaf geen oplossing; waar¬ 
schijnlijk omdat deze zelf geen Trend 
printer tot zijn beschikking had. We 
hebben dit zelf opgelost door -in BASIC- 
een opdracht aan de printer te sturen die 
de linefeed op 24/216 inch zette. 

Deze opdracht ziet er als volgt uit: 

LPRINT CHR$(27 ) "3 ";CHR$(24) 

Vertikaal lagen de punten iets te dicht 
bij elkaar. Dit was te wijten aan het feit 
dat de Trend printer met ovale naalden 
werkt. Hierop hebben we van de leverancier 
wel een goede correctie gekregen zodat, 
uiteindelijk, dit programma ook op de 
trend printers probleemloos werkt. 

De cassette kost (voor alle versies) 39, 

= wat erg duur is voor zo'n piepklein 
programmaatje. Wel wordt een goede 
handleiding geleverd en is het programma 
erg makkelijk aan te passen en ook naar 
diskette te zetten. 


Er zijn twee afdrukmogelijkheden: 

Klein formaat in zwart/wit: Voor iedere 
beeldpunt op het scherm wordt een dot door 
de printer gezet. 

Groot formaat: Voor iedere pixel op het 
scherm worden 4 dots op de printer gezet. 
Kleuren worden weergegeven in 7 grijs¬ 
tinten. De grijspatronen zijn ingedeeld 
naar de contrastwerking van de verschil¬ 
lende kleuren zoals op een monochroom 
scherm. Hier moet dus wel rekening mee 
worden gehouden. Op een bijgeleverde 
kleurentabel is te zien welke kleuren met 
hetzelfde patroon worden afgedrukt en bij 
het maken van een tekening, die voor de 
printer geschikt moet zijn, moet deze 
tabel gebruikt worden en niet de normale 
kleuren tabel. Op deze manier wordt 
voorkomen dat twee naast elkaar liggende 
vlakken hetzelfde patroon krijgen en 
zodoende -op de afdruk- dezelfde 'kleur' 
krijgen. 
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BEAMRIDER 


Als eerste in dit rijtje spelletjes een 
"gouwe ouwe", die toch tamelijk onbekend 
schijnt te zijn. En dat is zeker niet 
terecht, want dit is echt een topspel in 
al zijn eenvoud. 

Beamrider is een schietspel, waarbij je 
zelf in een ruimtestation zit en met je 
joystick (of cursortoetsen) vijandelijke 
aanvallen moet afslaan. Zelf kun je alleen 
onderaan het scherm van links naar rechts 
bewegen, via de vuurknop (of spatiebalk) 
je laserstralen afschieten en door middel 
van het naar voren bewegen van de joystick 
(of bovenste cursortoets) je torpedo's 
afschieten, waarvan je er overigens maar 3 
krijgt. 

Het scherm is in vakken verdeeld en de 
vijanden komen langs de lijnen van die 
vakken op je af. Sommigen kunnen met de 
laserstraal vernietigd worden, terwijl 
anderen alleen d.m.v. een torpedo verdwij¬ 
nen, maar aangezien je daar zuinig mee 
moet zijn, kun je ze beter zien te vermin¬ 
den. 

In de eerste rondes gaat dat vermijden 
nog, maar gaandeweg komen er zoveel vijan¬ 
den bij, dat je op het laatst compleet 
gestoord raakt en heel erg op je tellen 
moet passen, anders is het -voortijdig- 
gebeurd. 

Als hulpmiddelen in de "nood" komen er af 
en toe ook gele ruimtescheepjes naar bene¬ 
den, die je moet verzamelen om meer reser- 
veschepen te verkrijgen en aan het eind 
van elke ronde is het mogelijk een vette 
bonus in de wacht te slepen door het af¬ 
schieten van het grote ruimteschip, dat 
bovenaan het scherm langskomt. Dit wordt 
je wel moeilijk gemaakt door groene blok¬ 
kade schepen, die liefst voor dat ruimte¬ 
schip naar beneden komen razen en voor je 
het weet, ben je dan al je torpedo's 
kwijt. Je bonuspunten zie je dan tergend 
langzaam in een van de hoeken van het 
scherm verdwijnen. 

Er zijn 16 speelvelden, waarvan ik er tot 
nu toe 10 gehaald heb en dan zit je al 
behoorlijk te hijgen achter je computer¬ 
tje- 

Beamrider is een spel van Activision en op 
cassette verkrijgbaar voor de prijs van 
fl. 59, . De kwaliteit van de Activision 
cassettes is over het algemeen erg goed en 
wij hadden dan ook op geen van de drie 
hier aanwezige MSX—computers problemen 
met het laden ervan. 


Beeld * * * * 
Geluid* * * * * 
Spelkwaliteit* * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 
Prijs* * * 

..... ZEER GOED 
**** GOED 
*++ REDELIJK 
** MATIG 
* SLECHT 

_ ~ _ 


SPEED KING 

Razend populair zijn de autorace simula¬ 
tors, waarvan Formula 1" van Mastertronic 
een voorbeeld is. Voor fl. 14,95 (casset¬ 
te) kun je je lekker uitleven op verschil¬ 
lende racetracks, met droog of nat wegdek 
etc. 

In dezelfde serie is nu ook een cassette 
uitgebracht volgens hetzelfde principe, 
maar dan met motoren. 

Dit spel is zelfs nog goedkoper dan de 
auto-versie: slechts fl. 12,—. 

Het aardige hiervan is, dat het motortje 
ook echt meebeweegt, als je bijvoorbeeld 
een bocht neemt. 

Voor de liefhebbers een aanrader. 

P.S. De Formula 1 simulator" (auto^s) kon 
niet geladen worden op de Philips 8235 
MSX-2. ^ _ 

Beeld* * * * 

Geluid* * * * 

Spelkwaliteit* * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * 

Prijs* * * * * 

..... ZEER GOED 
*HMH* GOED 
*** REDELIJK 
** MATIG 

* SLECHT 


ICE KING 


Van Ariolasoft kregen we een heel aardige 
cassette toegezonden, die voor fl. 29,— 
in de softwarewinkels verkrijgbaar is. 

Verborgen in het Poolgebied ligt een stad 
bevroren. Op deze stad rust al een hele 
tijd de vloek van de "Ice King". Aan u de 
taak om in deze stad de graftombe van de 
IJskoning te zoeken en daar het tover¬ 
drankje te drinken. Dit is de enige manier 
öm de vloek te doorbreken. Het klinkt 
allemaal eenvoudig, maar. 

Ice King hoort thuis in de categorie "klim 
en klauter’ spellen. Het kan zowel met de 
cursortoetsen als met joystick gespeeld 
worden, maar ik moet er wel bij zeggen, 
dat je dan een goede joystick moet hebben. 
Er moeten nogal wat trappetjes beklommen 
worden en met mijn (AVT) joystick ging dat 
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erg moeizaam. 

Voor de rest is het een leuk spel: je 
wordt uitgerust met een "laser stick”, die 
-als je hem afvuurt en niets in het 
scherm, waar je op dat moment bent, raakt- 
soms wel vier of vijf schermen verder 
terecht komt en dan moet je er weer ach¬ 
teraan om hem te pakken te krijgen. 

Ook heb je nog te kampen met een beperkte 
voorraad energie, die wel aangevuld kan 
worden, maar dan moet je op tijd het jui¬ 
ste scherm zien te bereiken. De verschil¬ 
lende schermen zitten -uiteraard- 
barstensvol rare figuurtjes, die je in het 
gunstigste geval alleen maar hinderen, 
maar meestal moet je uitkijken, dat je 
niet te grazen genomen wordt. Voeg daar 
nog wat radarschermen aan toe , die je 
kostbare leventjes opslorpen, als je er 
niet op de juiste manier langswipt en je 
bent weer verzekerd van urenlang speelple- 
zier! 

De cassette kon zowel op de X'Press, de 
JVC als de Philips MSX2 geladen worden. 

Beeld * * * * » 

Geluid* * 

Spelkwaliteit* * * * 

Foutafhandeling 
Gebruiksgemak 
Documentatie* * * 

Prijs* * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
.** MATIG 
* SLECHT 


CONFUSED? 

"The Moving Puzzle Game" heeft deze cas¬ 
sette als subtitel en dit is iets heel 
aparts. In de pre-computertijd hield ik me 
ook nog wel eens bezig met het leggen van 
jig-saw puzzels en het nadeel was dan 
altijd, dat je -net als je lekker op dreef 
was- de tafel moest ontruimen omdat er 
bijvoorbeeld gegeten moest worden. Het 
zoekraken van puzzelstukjes was ook altijd 
erg fijn: dan vond ik er meteen niks meer 
aan. 

Deze problemen komen niet voor bij het 
puzzelen per computer. Bij Confused? wor¬ 
den de stukjes op het beeldscherm getoond 
en jij moet dan zorgen, dat ze op de 
juiste plaats terecht komen. In de linker¬ 
bovenhoek van het scherm staat het origi¬ 
nele plaatje, maar dat is afgeschermd. In 


, ULei uuvennoeK. is de ruimte, waarin 
je je stukjes moet plaatsen door middel 
van de cursortoetsen of de joystick. 

Verder is er een menu, waarmee verschil¬ 
lende mogelijkheden gekozen kunnen worden, 
o.a. de moeilijkheidsgraad: het gemakke- 
12x8*" Pl aat Jes, het raoeilijkst 

Je kunt het op je gemak doen, maar ook in 
de competitie-mode" spelen en dan wordt 
het een race tegen de tijd. 

Het allerlastigste van dit puzzelwerk is 
echter, dat de plaatjes BEWEGEN! Zo is er 
een vliegtuigje, een onderzeeer, een spin- 
neweb, een Pac-Man doolhofje enz.enz. Om 
het nog moeilijker te maken, kunnen de 
plaatjes op twee manieren gelegd worden: 
normaal en in een inversed mode, d.w.z. 
dat ze in spiegelbeeld zijn. Via het keu¬ 
zemenu kun je zo'n plaatje dan "omklap¬ 
pen . K 


Maar als het eenmaal gelukt is de stukjes 
zo te leggen, dat jouw plaatje identiek is 
ff 1 ? or igineel, dan gaat er een "gor¬ 
dijntje naar boven, dat het linker- 
schermpje laat zien en wordt door middel 
van een vrolijk muziekje aangekondigd, dat 
je het gehaald hebt. 

Confused? is een cassette uit de serie 
ByteBusters van Eaglesoft en kost fl. 
bv, . Voor die prijs heb je echter uren¬ 
lang puzzelplezier en bij ons was dat het 
geval op alle drie de computers* 


Beeld ***** 
Geluid ***** 
Spelkwaliteit ***** 
Foutafhandeling 
Gebruiksgemak 
Documentatie ***** 
Prijs * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 
* SLECHT 


CLUEDO 

Leisure Genius bracht een computerversie 
uit van Waddington's "Cluedo", het bord¬ 
spel dat altijd tegen de Sinterklaas in de 
STER-spots wordt aangeprezen als "Klu-ee- 
doo”• Volgens mij hoort dat uitgesproken 
te worden als "Kloe-doe", omdat het hier 
een„detectivespel betreft, waarbij je zelf 
de "clue" (oplossing) moet vinden. 
Diegenen, die het spel als bordspel ken- 
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nen, hebben duidelijk een voorsprong, want 
Cluedo is een behoorlijk ingewikkelde 
aangelegenheid. 

Een zekere Mr«Black ligt voor lijk onder¬ 
aan de trap en in het huis, waar deze 
moord gepleegd is, bevinden zich 6 perso¬ 
nen, die uiteraard allemaal als dader in 
aanmerking komen. Er zijn ook 6 wapens, 
die het moordwapen geweest kunnen zijn en 
de spelers (maximaal 6) moeten de oplos¬ 
sing zoeken door verschillende suggesties 
te doen en aan de hand van "clue kaarten" 
deze suggesties te toetsen en mogelijkhe¬ 
den te elimineren. 

De oplossing wordt via een random optie 
ingevoerd en is iedere keer anders. 

Je kunt in je eentje spelen tegen 5 andere 
"computerspelers" of met meerdere mensen 
spelen. Zelf heb ik het gepresteerd om 
helemaal buitenspel te staan door alle 
spelers een moeilijkheidsgraad te geven en 
dan wordt het spel geheel automatisch 
gespeeld. 

Op zich vind ik dit best een aardig spel, 
maar (net als met andere bordspellen, die 
voor computer zijn uitgebracht, zoals 
Monopoly en Scrabble) persoonlijk vind ik 
het toch af en toe ook wel leuk om zo'n 
spel "gewoon" te spelen met het bord op 
tafel. Het is tenslotte een "gezelschaps¬ 
spel". 

Anders wordt het natuurlijk, als je nie¬ 
mand hebt om tegen te spelen. In zo'n 
geval biedt de computer wel uitkomst. 
Tenslotte nog een waarschuwing: de bijge¬ 
leverde handleiding is in het Engels en 
voor mensen, die deze taal-niet goed be¬ 
heersen en bovendien het spel niet kennen, 
lijkt het me erg moeilijk het behoorlijk 
onder de knie te krijgen. 

Cluedo kost fl. 45,— en met het laden 
ervan hadden we op geen van de drie compu¬ 
ters moeite. 

Beeld * * * * 

Geluid * * * 

Spelkwaliteit * * * * 

Foutafhandeling 
Gebruiksgemak 
Documentatie * * * * 

Prijs * * * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
.** MATIG 
* SLECHT 



"Battle for Midway" is een strategisch 
spel uit de "Wargamers Series" van P.S.S. 
Voor dit spel (uitgebracht op cassette en 
alleen te spelen met joystick) is de bo¬ 
venstaande waarschuwing wat de Engelse 
taal betreft helemaal op zijn plaats, want 
de handleiding begint al met de medede¬ 
ling, dat het niet te spelen is zonder 
vooraf een grondige studie van de handlei¬ 
ding en als je kennis van het Engels niet 
zeer behoorlijk is, is de aankoop wegge¬ 
gooid geld. 

"Battle for Midway" is gebaseerd op een 
waar gebeurd wapenfeit uit de Tweede We¬ 
reldoorlog. Op 4 juni 1942 trachtten de 
Japanners door een luchtaanval op Midway 
Island in de Stille Oceaan de Amerikanen 
definitief te verslaan en zo de oorlog te 
winnen. Ondanks zware verliezen aan Ameri¬ 
kaanse zijde lukte het toch deze aanval af 
te slaan en dit was eigenlijk het begin 
van het einde voor de Japanners. 

Alan Steel, die zich al vijfentwintig jaar 
bezig houdt met het ontwerpen van oorlogs¬ 
spellen, schrijft in zijn toelichting, dat 
hef niet de bedoeling is deze slag echt na 
te bootsen, maar dat door bepaalde spel¬ 
elementen en hindernissen toch een eigen 
initiatief van de speler wordt verwacht en 
de afloop van de slag iedere keer anders 
kan verlopen. 

De strijd wordt gevoerd vanaf twee vlieg¬ 
dekschepen en vanaf het eiland Midway 
zelf. Ook zijn er twee verkenningsvlieg¬ 
tuigen om de Japanse vloot mee op te kun¬ 
nen sporen, die dan door middel van het 
lanceren van raketten vernietigd dient te 
worden. Hoe dat allemaal gedaan moet wor¬ 
den, staat zeer uitgebreid in de handlei¬ 
ding te lezen, vandaar die waarschuwing. 

"Battle for Midway" is een heel interes¬ 
sant spel voor de liefhebber (wie "Special 
Operations" goed vindt, zal dit spel zeker 
onder handen willen nemen) en die zal de 
prijs van Fl. 45,— er zeker voor over 
hebben. Het is duidelijk, dat er door de 
makers veel researchwerk voor verricht is 
en dat het met veel zorg is gemaakt. 

BEELD **** 

SPELKWALITEIT ***** 

DOCUMENTATIE ***** 

PRIJS **** 


45 





























GROG'S REVENGE 


Weer eens iets anders: een recensie van 
een spel, dat ik zelf niet gespeeld heb, 
omdat de cassette niet in de X'Press te 
branden was. "Grog's Revenge" werd ons 
toegestuurd door de firma U.S.Gold in 
Engeland, die het in licentie uitbracht 
voor Sierra-on-Line Ine. Het is de opvol¬ 
ger van "Quest for lires'* en de hoofdfi¬ 
guur is weer Thor, die nu de "Meaning of 
Life" moet vinden. Dat speelt zich af in 
de prehistorie rond een berg, waarin zich 
allerlei grotten bevinden. Thor moet op 
zijn eenwielig fietsje schelpen verzamelen 
op de bergpaden en in de grotten om daar¬ 
mee tol te kunnen betalen aan Peter. Zijn 
grootste vijand is Grog, die -als je hem 
tegenkomt- meteen een eind aan het spel 
maakt, dus die moet je zoveel mogelijk uit 
de weg gaan. Dan zijn er ook nog prehisto¬ 
rische "Tiredactyls", vrij vertaald "ban- 
denetertjes", die je wielen afpakken. Het 
einddoel is Berg 3 te bereiken, hetgeen 
gebeurt door verschillende levels door te 
fietsen en eer je zover bent, zullen er 
heel wat bandjes verwisseld moeten worden 
en veel schelpjes verzameld. 

"Grog's Revenge" is gewoon een leuk spel 
voor tussendoor, maar pas wel op, dat je 
computer er geschikt voor is, want behalve 
op de X'Press kon het ook niet geladen 
worden op de Philips MSX2, zodat alleen de 
JVC MSX-1 overblijft. 

En als je het niet kunt laden, zou dat 
zonde zijn van de Fl. 45,— die ervoor 
neergeteld moeten worden. 


Beeld * * * * 
Geluid * * * * 
Spelkwaliteit * * * * * 
Foutafhandeling 
Gebruiksgemak 
Documentatie* * * * * 
Prijs* * * 

***** ZEER GOED 
**** GOED 
*** REDELIJK 
** MATIG 

* SLECHT 



SOFT WARE VOOR DE PHILIP S MSX2 

Tot slot nog wat opmerkingen bij de nieuwe 
software voor de MSX2 computers, die door 
Philips op de Firato werden geïntrodu¬ 
ceerd. Vooral de 8280 met de uitgebreide 
videomogelijkheden vonden wij er toch wel 
indrukwekkend uitzien, alleen is het erg 
jammer, dat met de nieuwe software op geen 
enkele wijze gebruik wordt gemaakt van 
deze videomogelijkheden. 

Om op de "Phirato" toch iets aan software 
te kunnen bieden (de bezitters van de 
"oude" MSX-2 computers van Philips zitten 
er ook al lang genoeg op te wachten) heeft 
Philips aan Radarsoft opdracht gegeven wat 
spellen en educatieve programma's uit te 
brengen en het resultaat is dan ook ge¬ 
weest, dat men snel wat software van de 
Commodore heeft aangepast voor MSX, het¬ 
geen ook duidelijk blijkt uit het resul¬ 
taat . 


Bij de demonstratie van een aantal disket¬ 
tes, die wij onlangs kregen, viel ten 
eerste al het enorme formaat van de ver¬ 
pakking op: je zou verwachten dat daar een 
soort "reuzecassette" uit zou komen, maar 
nee hoor, gewoon een 3,5 inch diskette. 

Het aardigste vonden we nog "De Grotten 
van Oberon", een arcadespel waarbij je met 
een ruimteschip door grotten moet manou- 
vreren, laserschermen moet opruimen en 
tussendoor allerlei raadsels moet oplos¬ 
sen. Er zijn 4 levels, waarbij de raadsels 
in moeilijkheidsgraad oplopen. Bij dit 
spel komt de beeldkwaliteit van de MSX2 
nog het best tot zijn recht, maar er had 
veel meer van gemaakt kunnen worden. 

"Eindeloos" is ook een arcadespel, waarbij 
met een helicoptertje heen en weer gevlo¬ 
gen moet worden, ook weer laserschermen 
uit de weg ruimend en schietend op tegen¬ 
standers. De kwaliteit is hier beduidend 
minder dan van "De Grotten van Oberon" en 
dit spel had men net zo goed op cassette 
uit kunnen brengen voor de MSX1. 

In de educatieve sector is er een topogra- 
fieprogramma, dat al helemaal niets bij¬ 
zonders is. Gewoon even afwachten en je 
krijgt alle kaarten in de MSX-Gids, tot 
Europa en de wereld toe. 

Ook in deze sector een typecursus, die 
vrijwel gelijk is aan wat er op dat gebied 
voor de MSXl en de Commodore op de markt 
is, dus laat maar. 

Wel leuk is een diskette met meer dan 1000 
kruiswoordraadsels. Grafisch stelt dit 
natuurlijk niets voor, maar er wordt wel 
(en dat geldt ook voor de andere disket¬ 
tes) gebruik gemaakt van het grotere ge¬ 
heugen van de MSX2 en de diskettes nemen 
dan ook allemaal zo'n 70k in beslag. Met 
wat minder kruiswoordpuzzels er op, zou 
dit spel echter ook best voor de MSXl 
uitgebracht kunnen worden. 

De grofste blunder is het adventure "De 
Sekte", waar ik als fan van dat genre 
behoorlijk van over mijn nek ging, toen ik 
het zag. Vergeleken bij de screenl grafics 
van dit spel, zijn de plaatjes van Level 9 
van een zeer hoogwaardige kwaliteit. Als 
Commodore niets beters te bieden heeft dan 
wat blokjes, ben ik blij dat ik nooit zo'n 
computer heb gekocht. Het enige voordeel 
is misschien, dat "De Sekte" een neder- 
landstalig adventure is, maar dat hadden 
ze dan beter als tekstadventure uit kunnen 
brengen. 

In de volgende Gids gaan we hier misschien 
nog wat dieper op in en kunnen we aan de 
hand van foto's laten zien, hoe droevig 
het met de grafische kwaliteit is gesteld. 
Hopelijk komt "Laydock" snel uit Japan, 
want dat is een spel, dat echt geschreven 
is voor de MSX2. 

Wie toch perse een of meer van de 
bovengenoemde diskettes wil aanschaffen, 
zal behoorlijk in de buidel moeten tasten, 
want ze kosten FL. 69,— per stuk. 

JOSÉ. 
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BOEKEN 

HANDBOEK MSX 

Dit handboek is een vertaling van het 
engelstalige 'The complete MSX programmers 
guide' (zie de beschrijving hiervan in MSX 
Gids nummer 2). Het is wel het meest uit¬ 
gebreide handboek voor de programmeurs dat 
verkrijgbaar is maar het is jammer dat 
deze Nederlandse versie nu pas verschijnt, 
daar de MSX-2 in dit boek in het geheel 
niet aan de orde komt. Toch blijft dit een 
onmisbaar werk voor de serieuze program¬ 
meur . 

Het eerste deel van het boek geeft de MSX 
programmeur een uitgebreide en heldere 
uitleg inzake het programmeren in MSX 
BASIC. In het tweede gedeelte worden de 
meer geavanceerde programmatechnieken be¬ 
handeld en tevens komen hier de grafische- 
en geluidsmogelijkheden ruimschoots aan de 
orde. Het derde deel bevat een gede¬ 
tailleerde uitleg over het programmeren in 
zowel BASIC als machinetaal en het laatste 
gedeelte van het boek gaat wat dieper in 
op de werking van de MSX computer en in 
dit laatste gedeelte komt dan ook een 
lijst voor van BlOS-routines met een korte 
beschrijving. Tevens vinden we in het 
laatste gedeelte nog een overzicht van de 
systeera-variabelen. 

Net als bij de Engelse versie geldt ook 
bij dit werk dat het een onmisbaar 
handboek is voor de programmeur. Vrijwel 
alles is in dit boek te vinden. De Engelse 



versie werd ook vaak 'de MSX bijbel' 
genoemd en dat gaat ook voor deze 
Nederlandse versie op; deze Hollandse 
MSX-bijbel is 545 pagina's dik!! De 
uitgeverij is Kluwer en de prijs is 79,50. 
Dit lijkt duur, maar om aan dezelfde 
informatie te komen met bewhulp van andere 
boeken zal heel wat meer neergeteld moeten 
worden. 


WERKEN MET BESTANDEN IN MSX BASIC 

Dit boek is een zelfstudiegids waarin de 
lezer zelf nogal actief wordt betrokken, 
bijvoorbeeld door middel van toetsvragen 
en opgaven. Uiteraard is dit boek -zoals 
uit de titel blijkt- speciaal bedoeld voor 
diegenen die vaak en intensief met 
gegevensbestanden willen gaan werken en 
op deze materie wordt dan ook vrij diep 
ingegaan. Alles wat met gegevensverwerking 
op de MSX heeft te maken wordt in dit boek 
behandeld; zowel voor de cassette ge¬ 
bruiker als voor de diskdrive bezitter. 

Het boek begint met de opbouw van 
duidelijk leesbare programma's en vervol¬ 
gens worden de belangrijkste taalelementen 
-voor gebruik bij gegevensverwerking- 
behandeld. Hierna komen gegevensinvoer en 
-controle aan de orde en dan gaat het boek 
verder met de bestanden zelf. Eerst komen 
de sequentiele bestanden aan bod, gevolgd 
door utility programma's voor deze 
bestanden. In hoofdstuk 6 worden 
gegevensbestanden op cassette behandeld 
waarna, in hoofdstuk 7, de direkt- 
toegankelijke bestanden (random files) 
worden behandeld. Het laatste hoofdstuk 
geeft enkele toepassingen met deze random 
files en het boek wordt afgesloten met een 
overzicht van de gebruikte BASIC- 
opdrachten, een ASCII-code tabel, een 
overzicht van de foutmeldingen, een lijst 
met gereserveerde MSX BASIC woorden en een 
overzicht van de MSX BASIC commando's. 

Daar het hier gaat om een zelfstudiegids 
wordt elk hoofdstuk voorafgegaan door een 
opsomming van de doelstellingen en afge¬ 
sloten met een serie toetsvragen. Bij elk 
onderdeel wordt een voorbeeldprogramma 
gegeven. Deze programma's zijn doordacht 
en zeer overzichtelijk geschreven. De 
lezer wordt dan ook aangemoedigd de 
gegeven taalelementen, constructies en 
programma's zelf te draaien, eventueel aan 
te passen en aan de hand van de behandelde 
leerstof eigen toepassingen te maken. Het 
werken met bestanden is (op elke computer) 
een van de moeilijker onderdelen van het 
programmeren en boeken als deze zijn dan 
ook wel nodig om dit soort zaken tot een 
goed eind te brengen. 

Dit boek, dat een uitgave is van Academie 
Service, is zonder meer weer een van de 
beste boeken op dit gebied. De uitvoering 
is fraai en de inhoud is uitstekend. 

Het boek telt 275 pagina's en de prijs is 
45,=. Niet duur en zeer leerzaam. 

ALFRED DEBELS 
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TOPOGRAFIE 


Naar aanleiding van 'Overijssel per 
helicopter' hebben we, van A.Vuijk, een 
complete set ontvangen met alle provincies 
van Nederland plus een kaart van Europa. 
Uiteraard zetten we alle provincies niet 
in 1 blad, want daar zou een deel van de 
lezers niet gelukkig mee zijn, dus 
verdelen we dit over 2 of 3 bladen. 


GRONINGEN 


Beeldscherm: WIDTH 36 


1 ’ALBERT VUIJK COEVORDEN 19B6 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 
8 ’ 

9 ’HOOFDLUS 

10 SOUND 0,0:SOUND 1,4:SOUND 6,24 
20 SOUND 7,8<B11110110: SOUND B,Ï6 

30 SOUND 12,3:SOUND 11,50:SOUND 13,1 
2 

40 CO=STICK(BB) 

50 IF CO=0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 
30,140 

70 YA=YA—3:GOTO 150 

80 XA=XA+3:YA=YA-3:GOTO 150 

90 XA=XA+3:GOTO 150 

100 XA=XA+3:YA=YA+3:GOTO 150 

110 YA=YA+3:GOTO 150 

120 XA=XA-3:YA=YA+3:GOTO 150 

130 XA=XA-3:GDTO 150 

140 XA=XA-3:YA=YA-3:GOTO 150 

150 IF TIME>=3000 THEN LINE(17,172)- 

(255,182),7,BF:GOTO 5000 

160 ÏF TIME>2500 THEN AA=9 

170 TI=TIME*.08533 

180 LINE(TI,189)-<TI,191),AA 

200 PUT SPRÏTE 1,(XA-4,YA-4),15,1 

220 PUT SPRITE 1, ( XA-4!, YA-4) , 15,2 

240 PUT SPRITE 1,(XA-4,YA-4),15,3 

260 II- ABS (XA-XiXll AND ABS (YA-Yl 

Xll THEN CIRCLE (X1, Y1 ) , 2, 7: PAINT (X 

1, Y1 ),7:CIRCLE <X1,Y1),2,4:PAINT(X1, 

Yl) ,4 ... 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 
<3 THEN GOSUB 1000 
300 GOTO 40 

998 ' 

999 •’ PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17,172)-(255,182),7,BF 
1020 FOR 6=0 TO 7:COLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE(198,41)-(248,51),14,BF 
1050 PSET(200,42),14 

1060 COLOR 1:PRINT#1,USING"######":S 
C 

1070 AF‘=AP+1: IF AP<B THEN 3000 

1998 •’ 

1999 » 8 PLAATSEN GEVONDEN 

2000 SOUND 7,?<B11111000 

2010 PLAY"T170V1102L4CL8DEL4FGL2F. ", 
"T170V1205L2C.L404BAGG","R" 

2020 FOR F=1 TO 100:FOR G=1 TO 7 
2030 COLDR,,G:NEXT:NEXT 
2040 BO=INT((3000—CUR)/50) 

2045 SOUND 13,8:SOUND 12,2:SOUND 1,4 
:SOUND 7,&B11110110:SOUND 8,16 
2050 FOR'F=1 TO BO 


2060 SC=SC+100 

2070 LINE(198,41)-(248,51),14,BF 
2080 PSET(200,42),14:CÖLOR 1 
2090 PRINT#1,ÜSING "######";SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191),7,BF 
2140 NIV=NIV+1:IF NIV>4 THEN 5000 
2150 GOSUB 63040 

2998 ’ 

2999 ' PLAATS KIEZEN 

3000 IFNIV=0THENRESTORE4000 
3002 IFNIV=1THENRESTORE4010 
3004 IFNIV=2THENRESTORE4020 
3006 IFNIV=3THENRESTORE4030 
3008 IFNIV=4THENRESTORE4040 
3020 PNR=INT(RND(-TIME)*8) 

3040 B1$=STR$(PNR) 

3060 FOR F=0 TO PNR 
3080 READ A$,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B$,B1$)< >0THEN3000 
3140 B*=B*+B1$ 

3160 X1=X1/1.2+20 

3180 PSET(17,172),7:COLOR 1 

3190 PRINT# 1, "VLIEG NAAR:"*,A$ 

3200 TIME=CUR 
3220 GOTO 10 

3998 ’ 

3999 ' DATAREGELS MET PLAATSEN 

4000 DATA GRONINGEN,107,72,HOOGEZAND 
,136,83,STADSKANAAL,165,120,DELFZIJL 
', 157,42, WINSCHOTEN, 179,86,TÈR APEL, 1 
89,151,UITHUIZEN,120,23,VÈENDAM,155, 
97 

4001 •’ 

4010 DATA NIEUWE PEKELA,169,105,BELL 
INGWOLDE,196,94,MUSSELKANAAL,180,138 
, WARFFUM !, 104', 28!, Z OUTKAMF', 70, 43, GR IJ P 
SKERK,69,62,APP ï NGEDAM,149,44,WILDER 
VANK,155,104 
4011'’ 

4020 DATA OUDE PEKELA,175,97,BEDUM,1 
10,50,ROODESCHOOL,135,20,Z UIDHORN,84 
, 66, SLOCHTEREN, 143, 731, ZUÏDBROEK, 152, 
82,BEERTA,185,78,SAPPÈRMEER,139,83 

4021 ’ 

4030 DATA BOERTANGE,201,120,ULRUM,70 
,37,LEEK,80,85,FINSTERWÖLDE,186,73,H 
AREN,114,81,MARUM,64,90,ZEVÈNHUï Z EN, 
74,95,NIÈUWÉSCHANS,202,77 

4031 •’ 

4040 DATA MUNTENDAM,153,90,SCHEEMDA, 
169,78,MIDWOLDA,174,75,HEILIGERLEE,1 
75,84,ÖNSTWEDDE, 182!, 115,EENRUM,90,36 
,S ï DDÈBUREN,152,62,NOORÖLAREN,122,94 

4041 " 

4998 * 

4999 •’ EINDE SPEL 

5000 FOR F=1 TO 3:PUT SPRITE 1,(200, 
200),7,F:NEXT 

5005'IF NIV>4 GOTO 5020 

5010 LINE (86,60)-(162,70),14,BF 

5015 PSET(88,62),15:PRÏNT#i,"tlJD OP 

5020 SOUND 1,0-.SOUND 9,0: SOUND 7,?<B1 
1111110 

5025 FOR G=1 TO 7-.S0UND B,15-G:F0R F 
=170 TO 255:SOUND 0,F:COLÓR ,,G:NEXT 
: NEXT 

5030 SOUND 8,0 

5035 LINE (86,60)-(162,70),4,BF 

5040 LINE(0,189)-(255,191),7,BF 

5045 IF SOHS THEN HS=SC 

5050 SC=0:NIV=0 

5100 GOSUB 63040 

5110 X A=125:YA=85 
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5120 GOTO 6 

5998 •’ 

5999 ’ INTRDDUCTIE-TUNE 

6000 S0UND7,&B11111000 

6001 Al*=" V8T108O4L4AO5DL8CDO4L2B-L4 
A05DGEFL8EDC04B—L4A05DL8CDL204B—L4A6 
E bL8FL2F> M 

6010 A2*="V6T108O4L2FFL4EL2FL4B—GL2A 
L4GL2FFL4EFDC03B-L2A." 

6020 A3*="V6T108O3L4FB—AGCFB—G04C03F 
A04C03FB-AGCF02B-03C02C" 

6030 A4*="02L4FA03C" 

6040 A5*="02L2F." 

6050 PLAY Al*,A2*,A3*+A4* 

6060 PLAY Al*,A2*,A3*+A5* 

6070 B1*="05L2AL4GFB-AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B-" 

6080 B2*="05R4L4CC#DFEL2DL4C04B—A05C 
#D04AGL2A.L4B-A05C#L2DR4" 

6090 B3*="03L4F02FED03DC02L2B—L4AGFE 
DC02B-A03EFGA02AL203DL4E" 

6100 PLAY B1*,B2*,B3* 

6110 PLAY Al*,A2*,A3*+A5* 

6500 RETURN 

9998 ’ 

9999 ’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4s CLS 

10060 OPEN"GRP:" FOR OUTPUT AS#1 
10080 RESTORE 10450 

10090 SOUND1,9:SOUND13,8:SOUND12,3:S 

OUND7,&B11110110:S0UND8,16 

10100 FOR F=62.5 TO 187.5 STEP 25 

10120 LINE (125,5)—(F,25),7 

10140 CIRCLE STÈP<0,9>,9,7 

10160 READ A* 

10180 PSET(F-2,30),4 
10190 COLOR 7:PRINT#1,A* 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE<125,45)-(F, 70) ,9 
10260 CIRCLE STEP<0,9>,9,9 
10280 READ A* 

10300 PSET < F-2,75),4 
10310 COLOR 9:PRINT#1,A* 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE <125,92)-(F,115),11 
10380 CIRCLE STEP(0,9),9,11' 

10400 READ A* 

10420 PSET(F-2,120),4 
10430 COLOR 11:PRINTttl,A* 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T,I,N,G,1,9,8,6 
10460 PSET<66,148),4' 

10470 COLOR 14: PRINTttl , presenteer 
t 

10480 PSET<25,165),4 

10485 COLOR l:PRINt#l,"GRONINGEN PER 
HELICOPTER" 

10490 PSET<93,178),4 
10495 COLOR 14:PRINT#1,"<C) 1986” 

10498 FOR F=300TO0STEP—1:S0UND8,F/20 
: NEXT 

10500 FOR F=1 TO 1500:NEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5:CLS 

11050 LOCATE 4,10:PRINT"Wi1 je instr 
ucties? <J/N)" 

11052 I*=INKEY*:IFI*=""THEN11052 
11054 IFI*="N"ORI*="n"THEN63000ELSEI 
FI*="J"ORI*="j"THEN11060ELSE11052 
11060 CLS:LOCATE4,1:PRINTCHR*<175)+" 
GRONINGEN PER HELIKOPTER "+CHR*<174 

) 


11080 LOCATE 4,4:PRINT "HET DOEL VAN 
DIT SPEL IS HÉT SPELENDERWI 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE GRONINGEN." 

11100 LOCATE 2, 8 :PRINT "Vlieg met je 
helicopter naar de acht gevraa 

gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

in het oog!" 

11120 LOCATE 2,13:PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 12,17:PRINT"VEEL SUCCES 

! ! i » 

11160 LOCATE 4,19:PRINT"Druk na het 
tekenen van de kaart: 

- spatieb 

alk voor toetsen - vuurkn 

op voor joystick 1 " 

11180 GOSUB 6000 

63000 SCREEN2,0,0:C0L0R7,7,7:CLS 

63002 X*="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70,108,32,4 

*54 c^q 0 

63005 FOR F=1 TO 3:FOR G=1 TO 8 

63006 READ X 

63007 X*=X*+CHR* < X) 

63008 NEXT G 

63009 SPRITE* <F)=X* 

63010 X*="" 

63011 NEXT F 

63017 RESTORE 63026 

63018 COLOR 4 

63019 X1=190:Yl=163 

63020 READ X2,Y2 

63021 IF X 2=0ANDY2=0THEN63025 

63022 LINE < X1/1.2+20,Y1)-< X2/1.2+20, 
Y2) 

63023 SWAP XI,X2:SWAP Y1,Y2 

63024 GOTO 63020 

63025 PAINT < 80,70),4 

63026 DATA 190,163,190,159,201,140,2 
05,125,207,121,204,109,205,95,200,88 
,202,85,202,81,207,76,205,75,205,69, 
203,64,194,63 

63027 DATA 185,60,182,56,184,52,183, 
50,185,47,184,46,180,48,169,46,156,3 
7,155,34,153,32,153,26,150,22,151,17 
,135,10 

63028 DATA 125,10,98,21,95,20,87,21, 
85,23,75,24,62,33,62,40,66,42,67,47, 
65,52 1 63 1 52 1 611 55,59,55i58, 61 ' 

63029 DATA 54,68,56,73,50,85,49,95,5 
4,100,63,100,65,102,66,101,70,105,70 
,103,75,106,81,90,80,88,83,86,84,82 

63030 DATA 94,76, 'l 00 ^76,101,78,103, 7 
7,106,83,105,85,108,8B,110,88,118,98 
,125,97,126,98,129,98,132,95,162,122 
,178,144,181,144,178,155,187,155,1B7 
,163,190,163,0,0' 

63040 AP=0:CÜR=0: XA=125:YA=85:AA=1:B 

If l> 

63060 COLOR ,,7 

63061 LINE <7,3) — <81,13),14,BF:PSET<8 
,4),14:PRINTttl,"GRONINGÈN" 

63062 LINE<198,15)-<248,23),14,BF 

63063 PSET<200,16):COLOR 1:PRINT#1," 
NIV:";USING"##";NIV 

63065' LINE<198,31)-<248,51),14,BF 
63067 PSET < 200,32),14 

63069 COLOR 1:PRINt#l,"SCORE:":PSET< 
200,42),14:PRINT#1,USÏNG"######";SC 

63070 LINE<7,119)-<65,139),14,BF:PSE 
T <8,120),14:PRINT#1,"HOOGSTE"' 


/ 


49 



63072 PSET(8,130),14:CDLDR 6:PRINT#1 
,USING"#######";HS:COLOR 1 
63075 PSET(17,172),7:PRINT#!,"DRUK S 
PATIEBALK/VUURKNOPl" 

63080 IF STRIG(0)=-l THEN BB=0 ELSE 
IF STRIG(1)=—1 THEN BB=1 ELSE 63080 
63090 LINE <17,172)-(255,182),7,BF 
63100 RETURN 

63200 •’ MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 
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FRIESLAND 

Beeldscherm: WIDTH 36 


1 ’ALBERT VUIJK COEVORDEN 1986 

2 KEYOFF 

4 GOSUB 10000 
6 GOTO 3000 
8 •’ 

9 *HOOFDLUS 

10 SOUND 0,0:SOUND 1,4:SOUND 6,24 
20 SOUND 7,&B11110110:SOUND 8,16 

30 SOUND 12,3:SOUND 11,50:SOUND 13,1 
2 

40 CO=STICK(BB) 

50 IF CO =0 THEN 150 

60 ON CO GOTO 70,80,90,100,110,120,1 

30,140 . 

70 YA=YA-3:GOTO 150 

80 XA=XA+3:YA=YA-3:GOTO 150 

90 XA=XA+3:GOTO 150 

100 XA=XA+3:YA=YA+3:GOTO 150 

110 YA=YA+3:GOTO 150 

120 XA=XA-3:YA=YA+3:GOTO 150 

130 XA=XA-3:GOTO 150 

140 XA=XA-3:YA=YA-3:GOTO 150 

150 IF TIME>=3000 THEN LINE<17,172)- 

(255,182),7,BF:GOTO 5000 

160 IF TIME>2500 THEN AA=9 

170 TI=TIME*.08533 

180 LINE(TI,189) — <T1,191),AA 

200 PUT SPRITE 1,(XA-4,YA-4),15,1 

220 PUT SPRITE 1,(XA-4,YA-4),15,2 

240 PUT SPRITE 1, (XA-4, YA- 4 ) 15, 3 

260 IF ABS (XA-XiXU AND ABS (YA-Yl 

Xll THEN CIRCLE ( X 1, Y1) , 2,7: PAINT (X 

1,Yl),7:CIRCLE (XI,Yl),2,4:PAINT(X1, 

Y1),4 ' 5 

280 IF ABS (XA-X1X3 AND ABS (YA-Yl) 

<3 THEN GOSUB 1000 

300 GOTO 40 

998 1 

999 •' PLAATS GEVONDEN 

1000 CUR=TIME 

1010 LINE (17,172)-(255,182),7,BF 
1020 FOR G =0 TO 7:COLOR ,,G:NEXT 
1030 SC=SC+250 

1040 LINE(198,73)-(248,83),14,BF 
1050 PSET(200,74),14 

1060 COLOR 1:PRINt#1,USING"######";S 
C ’ ’ 

1070 AP=AP+1:IF AP <8 THEN 3000 

1998 •' 

1999 ' 8 PLAATSEN GEVONDEN 

2000 SOUND 7,&B11111 000 

2010 F’LAY"T170V1102L4CL8DEL4FGL2F. ”, 
"T170VI205L2C.L404BAGG","R" 

2020 FOR F=1 TO 100:FOR 6=1 TO 7 
2030 COLOR,,G:NEXT:NEXT 
2040 B0=INT((3000-CUR)/50) 

2045 SOUND 13,8:SOUND 12,2:SOUND 1,4 
: SOUND 7, S<B11110110: SOUND 8,16 
2050 FOR F=1 TO BO 
2060 SC=SC+100 

2070 LINE(198,73)-(248,83),14,BF 
2080 PSET(200,74),14:COLOR 1 ‘ 

2090 F'R I NT# 1, LJSING "######" ; SC 
2110 NEXT F 
2120 SOUND 8,0 

2130 LINE (0,189)-(255,191),7,BF 
2140 NIV=NÏV+l:IF NIV >4 THEN 5000 
2150 GOSUB 63040 

2998 ' 

2999 •- PLAATS KIEZEN 

3000 IFNIV=0THENRESTORE4000 
3002 IFNIV=1THENRESTORE4010 
3004 IFNIV=2THENRESTORE4020 


\ 
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3006 IFNIV=3THENRESTORE4030 
3008 IFNIV=4THENRESTORE4040 
3020 PNR=INT(RND(-TIME)# 8 ) 

3040 B1*=STR$(RNR) 

3060 FOR F=0 TO PNR 
3080 READ A$,X1,Y1 
3100 NEXT F 

3120 IF INSTR(B$,B1$)< >0THEN3000 
3140 B*=B*+B 1 * 

3160 X1=X1/1.2+20 

31B0 PSET(17,172),7:CDLOR 1 

3190 PRINT#1, "VLIEG NAAR:";AS 

3200 TIME=CUR 

3220 GOTO 10 

3998 ' 

3999 ’ DATAREGELB MET PLAATSEN 

4000 DATA LEEUWARDEN,131,70,SNEEK,11 
4,108,IJLST,108,114'DOKKÜM'156,43iDR 
ACHTEN,170,90,HÈERENVEEN,148,123,HAR 
LINGEN,83,78,LEMMER,123,147 

4001 ’ 

4010 DATA HOLWERD, 143,35, BERGLJM, 155, 
71,GORREDIJ K,167,ï14,FRANEKER,99,75, 
MAKKUM,80,104,STAVERÈN,78,142,HINDEL 
OOPEN,84,130,WOLVEGA,158,141 

4011 ’ 

4020 DATA WORKUM,85,120,BOLSWARD,94, 
102,JOURE,131,121,KÖLLUM,175,52,GR0Ü 
W,137,94,SL0TÈN,112,138,ST JACOBI PA 
ROCHIE,105,56,NÖORDWOLDÈ,180,136 

4021 ’ 

4030 DATA WEST-TERSCHELLING,54, 34,00 
STERWOLDE,198,114,STIENS,125,58,BÜIT 
ENPOST,175,59,NES,130,15,OOSTERBUREN 
,180,8,ST ANNA PAROCHIE,ï12,55,OOST 
VLIELAND,32,52 

4031 •’ 

4040 DATA WOUDSEND,107,127,BAKKEVEEN 
,193,95,APPELSCHA,205,125,WILHELMINA 
SOORD,176,142,BERLIKUM,111,62,WIRDUM 
,132,82,ZURICH,80,94,GAASTÈRLAND,95, 
145 

4041 * 

4998 ’ 

4999 ’ EINDE SPEL 

5000 FOR F=1 TO 3:PUT SPRITE 1,(200, 
200),7,F:NEXT 

5005 IF NIV>4 GOTO 5020 

5010 LINE (94,94)-(160,104),14,BF 

5015 PSET(96,96),15:PRÏNT#1,"TIJD OP 

I *1 

5020 SOUND 1 , 0 : SOUND 9,0: SOUND 7,S<B1 
1111110 

5025 FOR G=1 TO 7:SOUND 8,15-G:F0R F 
=170 TO 255:SOUND 0,F:COLÖR ,,G:NEXT 
: NEXT 

5030 SOUND 8,0 

5035 LINE (94,94)-(160,104),4,BF 

5040 LINE(0,189)—(255,Ï91),7,BF 

5045 IF SC>HS THEN HS=SC 

5050 SC=0: NIV=0 

5100 GOSUB 63040 

5110 XA=125:YA=85 

5120 GOTO 6 

5998 ’ 

5999 ’ INTRODUCTIE-TUNE 

6000 S0UND7,6611111000 

6001 A1S=" V8T108O4L4AO5DLBCDO4L2B-L4 
A05DGEFL8EDC04B-L4A05DL8CDL204B-L4AG 
E.L8FL2F.” 

6010 A2$="V6T108Q4L2FFL4EL2FL4B-GL2A 
L4GL2FFL4EFDC03B-L2A. " 

6020 A3S="V6T108O3L4FB-AGCFB-G04C03F 
A04C03FB-AGCF02B-03C02C" 

6030 A4S="02L4FA03C" 

6040 A5$="02L2F." 

6050 PLAY AIS,A2S,A3S+A4S 
6060 PLAY AIS,A2$;A3S+A5S 


6070 B1S="05L2AL4GFB—AL2GL4FEAGFL8GF 
EDL2C#L4DEL8EFGAGFEDC04B-" 

6080 B2S="05R4L4CC#DFEL2DL4C04B-A05C 
#D04AGL2A.L4B-A05C#L2DR4" 

6090 B3S="03L4F02FED03DC02L2B—L4A6FE 
DC02B-A03EFGA02AL203DL4E" 

6100 PLAY B1S,B2S,B3S 
6110 PLAY AIS,A2S,A3S+A5S 
6500 RETURN 

9998 •’ 

9999 •’ TITELPAGINA 

10000 SCREEN 2,0,0 
10040 COLOR 15,4,4:CLS 

10060 OPEN"GRP:" FOR OUTPUT AS#1 
10080 RESTORE 10450 

10090 SOUND1,9:SOUND13,8:SOUND12,3:S 

0UND7, S<B1 1110110: S0UND8, 16 

10100'FOR F=62.5 TO 187.5 STEP 25 

10120 LINE (125,5)—(F,25),7 

10140 CIRCLE STEP(0,9),9,7 

10160 READ AS 

10180 PSET(F—2,30),4 

10190 COLOR 7:PRINT#1,A$ 

10200 NEXT F 

10220 FOR F=25 TO 225 STEP 25 
10240 LINE(125,45)—(F,70),9 
10260 CIRCLE STEP(0,9),9,9 
10280 READ A$ 

10300 PSET(F—2,75),4 
10310 COLOR 9:PRINT#1,A$ 

10320 NEXT F 

10340 FOR F=87.5 TO 167.5 STEP 25 
10360 LINE (125,92)-(F,115),11 
10380 CIRCLE STEP(0,9),9,11' 

10400 READ A$ 

10420 PSET(F-2,120),4 
10430 COLOR 11:PRINT#1,A$ 

10440 NEXT F 

10450 DATA A,L,B,E,R,T,C,0,M,P,U 
10455 DATA T,I,N;G,1,9,8,6 
10460 PSET(66,148),4' 

10470 COLOR 14:PRINT#1,presenteer 
t 

10480 PSET(25,165),4 

10485 COLOR 1:PRINT#1,"FRIESLAND PER 
HELICOPTER" 

10490 PSET(93,178),4 
10495 COLOR 14:PRINT#1,"(C) 1986" 

10498 FOR F=300TO0STEP-1:SGUND8,F/20 
: NEXT 

10500 FOR F=1 TO 1500:NEXT 

10999 ’ INSTRUCTIES 

11000 SCREEN 0 
11020 WIDTH 37 

11040 COLOR 1,5,5:CLS 

11050 LOCATE 4,10:PRINT"Wi1 je instr 
ucties? (J/N)“ 

11052 I$=INKEY$:IFI %- "”THEN11052 
11054 IFI$="N"ORI$="n"THEN63000ELSEI 
FI %= " J " ORI $= '• j " THEN 11060ELSE11052 
11060 CLS:L0CATE4,1:PRINTCHR^(175)+" 
FRIESLAND PER HELIKOPTER M +CHR*<174 

) 

11080 LOCATE 4,4:PRINT "HET DOEL VAN 
DIT SPEL IS HÉT SPELENDERWI 

JS LEREN VAN PLAATS- NAMEN IN D 

E PROVINCIE FRIESLAND." 

11100 LOCATE 2,8:PRINT "Vlieg met je 
helicopter naar de acht gevraa 

gde plaatsen voordat de tijd om 

is. Houd de tijdbalk dus goed 

in het oog!" 

11120 LOCATE 2,13:PRINT"Nadat de ach 
tste plaats bereikt is, kom je 

op een hoger niveau." 

11140 LOCATE 12,17:PRINT"VEEL SUCCES 

i i i ■( 
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11160 LOCATE 4,19:PRINT"Druk na het 
tekenen van de kaart: 

- spatieb 

alk voor toetsen - vuurkn 

op voor joystick 1 " 

11180 GOSUB 6000 

63000 SCREEN2,0,0:C0L0R7,7,7:CLS 

63002 X*="" 

63003 RESTORE 63004 

63004 DATA 0,98,54,4,32,108,70,0,24, 
24,24,231,231,24,24,24,0,70,108,32,4 

9Q 0 

63005 FOR F=1 TO 3:FDR G=1 TO 8 

63006 READ X 

63007 X$=X*+CHR*(X) 

63008 IMEXT G 

63009 SPRITE$ (F) =X$ 

63010 X$="" 

63011 NEXT F 

63017 RESTORE 63031 

63018 COLOR 4 

63019 X1=203:Yl=134 

63020 READ X2,Y2 

63021 IFX2=0ANDY2=0THEN63025 

63022 LINE(X1/1.2+20,Y 1 )—(X2/1. 2 + 20 , 
Y2) 

63023 SWAP X1,X2:SWAP Y1,Y2 

63024 GOTO 63020 

63025 RS=RS+1:IFRS=1THEN63026ELSEIFR 
S=2THEN63027ELSEIFRS=3THEN63028ELSEI 
FRS=4THEN63029ELSEIFRS=5THEN63030 

63026 X1=6:Y1=69:RESTORE63036:G0T063 
020 

63027 X1=48:Y1=40:RESTORE63037:G0T06 
3020 

63028 X1=107:Y1=12:RESTORE63038:GOTO 
63020 

63029 X1=174:Yl=12:RESTORE63039:GOTO 
63020 

63030 PAINT <128,80),4:PAINT<46,52),4 
:PAINT <64,34),4:PAINT(128,15),4: PAIN 
T(169,8),4 

63031 DATA 203,134,211,128,215,119,2 
06,106,206,98,198,95,199,93,195,89,1 
85,89,180,83,180,78,187,66,186,62,19 
0,50,193,49 

63032 DATA 194,47,195,47,196,44,193, 
42,190,45,178,45,177,42,175,38,177,3 
0,173,26,165,25,150,27,123,41,120,41 
,103,48 

63033 DATA 82,72,79,90,80,93,77,102, 
75,99,74,100,78,Ï09i78,112,80,113,78 
,116,81,130,79,137,75,140,75,144,82, 
149 

63034 DATA 88,148,102,152,106,148,10 
9,148,112,146,114,150,124,150,131,15 
5,132,158,135,161,138,161,138,158,14 
0,157,144,158,148,156’ 

63035 DATA 150,151,155,149,158,154,1 

63.153.164.154.166.153.1671.150.170.1 
49,189,137,191,130,200,129,203,134,0 
, 0 ' 

63036 DATA 6,69,14,70,16,65,20,63,23 
,57,35,53,39,48,37,46,16,58,14,63,5, 
67,6,69,0,0 

63037 DATA 48,40,52,40,53,37,56,35,6 
2, 32, 64,33, 72,31,74,28', 81,28,79,26,8 
0,25,83,27,85,27,90,21,95,20,98,17,9 
7,15,63,27,59,26,47,32,45,35,48,40,0 
,0 

63038 DATA 107,12,107,19,110,22,115, 

21.120.18.135.18.154.13.154.11.144.1 
1,132,13,117,13,107,12,0,0 

63039 DATA 174,12,176,12,180,10,190, 
10,195,6,203,Si 203,3,182^3,177,4, 174 
, 12 , 0,0 


63040 AP=0:CUR=0: XA=125:YA=85:AA=1:B 
$=" >• 

63060 COLOR , , 7 

63061 LINE<7i3>-<81,13),14,BF:PSET<8 
,4),14:PRINT#1,"FRIÈSLAND" 

63062 LINE(198,15)-(248,23),14,BF 

63063 PSET <200, 16)-.COLOR 1:PRINT#1," 
NIV: " 5USING ,, ## i, :NIV 

63065 LINE(198,63)-<248,83),14,BF 
63067 PSET <200;64),14 

63069 COLOR 1:PRINt#l,"SCORE:":PSET< 
200,74),14:PRINT#1,USÏNG"######";SC 

63070 LINE(7,119)-(65,139),14,BF:PSE 
T <8,120),14:PRINT#1,"HOOGSTE" 

63072 PSET<8,130),14:COLOR 6 :PRINT #1 
,USING"#######"-HS:COLOR 1 

63075 PSET<17,172),7:PRINT#1,"DRUK S 
PAT IEBALK/VUURKNOF* 1 " 

63080 IF STRIG(0 )=—1 THEN BB=0 ELSE 
IF STRIG( 1)=—1 THEN BB=1 ELSE 63080 
63090 LINE(17,172)-<255,1B2),7,BF 
63100 RETURN ' ... 

63200 ' MET DANK AAN RICH. ALTENBURG 
EN ZIJN PROGRAMMA TOPOOV 


C0NTR0LETELLIN6 
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1 - 58 

2 - 183 
4 - 242 
6 - 122 
B - 5B 
9-58 

10 - 43 
20 - 152 
30 - 101 
40 - 247 
50 - 251 
60 - 252 
70 - 176 
80 - 16 
90 - 173 
100 - 15 
110 - 175 
120 - 16 
130 - 174 
140 - 17 
150 - 25 
160 - 242 
170 - 94 
180 - 29 
200 - 62 
220 - 63 
240 - 64 
260 - 209 
280 - 191 
300 - 223 

998 - 58 

999 - 58 
1000 - 164 
1010 - 97 
1020 - 141 
1030 - 21 
1040 - 46 
1050 - 184 
1060 - 230 
1070 - 126 
199B - 58 

1999 - 58 

2000 - 21 

2010 - 119 
2020 - 202 
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2040 - 150 
2045 - 0 
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2150 - 241 
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Regel: 4001 - 58 
Regel: 4010 - 34 
Regel: 4011 - 58 
Regel: 4020 - 13 
Regel: 4021 - 58 
Regel: 4030 - 181 
Regel: 4031 - 58 
Regel: 4040 - 54 
Regel: 4041 - 58 
Regel: 4998 - 58 
Regel: 4999 - 58 
Regel: 5000 - 230 
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Regel: 5035 - 176 
Regel: 5040 - 76 
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Regel: 6040 - 64 
Regel: 6050 - 136 
Regel: 6060 - 137 
Regel: 6070 - 209 
Regel: 6080 - 13 
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Regel: 6090 - 134 
Regel: 6100 - 1 

Regel: 6110 - 137 
Regel: 6500 - 142 
Regel: 9998 - 5B 
Regel: 9999 - 58 
Regel:10000 - 114 
Regel:10040 - 86 
Regel:10060 - 17 
Regel:10080 - 180 
Regel: 10090 - 102 
Regel: 10100- 50 
Regel:10120 - 15 
Regel:10140 - 234 
Regel: 10160- 12 
Regel:10180 - 24B 
Regel:10190 - 134 
Regel:10200 - 233 
Regel: 10220 - 76 
Regel: 10240 - 68 
Regel:10260 - 236 
Regel: 10280 - 12 
Regel:10300 - 37 
Regel:10310 - 136 
Regel:10320 - 233 
Regel:10340 - 85 
Regel:10360 - 192 
Regel:10380 - 236 
Regel:10400 - 12 
Regel:10420 - 82 
Regel:10430 - 136 
Regel:10440 - 233 
Regel:10450 - 154 
Regel:10455 - 226 
Regel:10460 - 116 
Regel:10470 - 181 
Regel: 10480 - 92 
Regel: 10485 - 13 
Regel:10490 - 173 
Regel:10495 - 246 
Regel:1049B - 71 
Regel:10500 - 188 
Regel: 10999 - 58 
Regel:11000 - 246 
Regel:11020 - 244 
Regel: 11040 - 76 
Regel:11050 - 208 
Regel:11052 - 236 
Regel: 11054 - 76 
Regel:11060 - 50 
Regel:11080 - 169 
Regel:11100 - 163 
Regel:11120 - 106 
Regel:11140 - 227 
Regel:11160 - 232 
Regel: 11180- 66 
Regel:63000 - 194 
Regel:63002 - 175 
Regel:63003 - 204 
Regel:63004 - 206 
Regel:63005 - 108 
Regel:63006 - 255 
Regel:63007 - 22 
Regel:63008 - 234 
Regel:63009 - 237 
Regel:63010 - 175 
Regel:63011 - 233 
Regel-.63017 - 231 
Regel-.63018 - 242 
Regel:63019 - 154 
Regel:63020 - 232 
Regel:63021 - 165 
Regel:63022 - 179 
Regel -.63023 - 66 
Regel:63024 - 217 
Regel-.63025 - 59 
Regel:63026 - 143 
Regel:63027 - 155 
Regel:63028 - 187 
Regel:63029 - 255 
Regel-.63030 - 197 
Regel-.63031 - 205 
Regel:63032 - 209 
Regel:63033 - 33 
Regel:63034 - 112 
Regel:63035 - 189 
Regel:63036 - 148 
Regel:63037 - 199 
Regel -.63038 - 34 


Regel:63039 - 156 
Regel:63040 - 186 
Regel:63060 - 77 
Regel:63061 - 56 
Regel:63062 - 184 
Regel:63063 - 198 
Regel:63065 - 36 
Regel:63067 - 174 
Regel:63069 - 254 
Regel:63070 - 11 
Regel:63072 - 168 
Regel-.63075 - 235 
Regel:63080 - 36 
Regel:63090 - 65 
Regel:63100 - 142 
Regel:63200 - 58 
Totaal: 29289 




VOLGENDE KEER MEER! 


AANVULLING OP ’TORENS VAN GEDULD’ 

DOOR J.A. DE BROUWER 

Met de volgende aanvuling blijft het aantal zetten 
op het scherm zichtbaar 


375 LINE <195, 21) — (195,40),10 

376 LINE(195.40>-(254,40),10 

377 PRESET (200, 32) : COLOR lis PRINT441, "GEZET" 
855 LNE(200,22)-(235,30) ,0,BF 

900 PSET(200,23):COLOR15:PRlNrun,ZZ:GOTO 450 


FOUT IN 'VIER OP EEN RIJ’ 

IN HET PROGRAMMA ’VIER OP EEN RIJ KAN HET GEBEUREN 
DAT DE COMPUTER WINT, MAAR HET NIET SIGNALEERT 
WE HEBBEN DIT DOORGEGEVEN AAN DE MAKEN EN HOPEN 
IN HET VOLGENDE NUMMER HIERVOOR EEN OPLOSSING 
TE HEBBEN, 


SPECTRAVIDEO BEZITTERS OPGELET! 

Er zijn nu ook diskettes met de MSX Gids programma’s 
verkrijgbaar voor de SVI 707 diskdrive (40 track DS) 
Wel even bij de bestelling vermelden! Prijs: f 25,= 
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MSX LANDELIJKE BEURSDAG EN SEMINAR 


Op. 4 oktober a.s. zal "De MSX-er" voor de eerste maal de jaar - 
lijkse "MSX landelijke beursdag en seminar" organiseren. Deze 
gezellige manifestatie op MSX microcomputergebied is uniek op 
z ■* i n terrein, omdat aan de beurs een seminar is gekoppeld, 
waarbij een aantal sprekers in zal gaan op het communicatiege - 
beuren op microcomputergebied met specifiek de MSX-computer als 
middelpunt. 

De beurs en het seminar worden gelijktijdig gehouden in 't Spant 
te Bussum op zaterdag 4 oktober 1986. Hieronder vindt u de 
belangrijkste gegevens over deze dag. Mochten er bij u nog 
vragen onbeantwoord zijn, dan kunt u contact opnemen met "De 
MSX-er". 

OPENINGSTIJDEN: 10.00-16.00 uur. 

ENTREE: Leden van de "MSX-Club" mogen (op vertoon van hun lid¬ 

maatschapskaart) gratis naar binnen. Belangstellenden en niet- 
leden betalen FL. 7,50 per persoon. Zij hebben dan het recht op 
toegang tot de beurs en het seminar. 

SEMINAR : 

Het seminar heeft als onderwerp "communicatie" en wordt gehouden 
in de schouwzaal van het gebouw. Onderwerpen, die aan de orde 
zullen komen, zijn: 

* communicatie tussen pc en MSX 

* modemverbindingen met Telt ron als voorbeeld 

* toekomst communicatiegebeuren pc en MSX microcomputers 

* databank opzetten met MSX 

* Viditel 

* reserve 

Het seminar begint om 11.00 uur. Iedere spreker zal ongeveer 30 
minuten spreken, waarna een discussie en vragenkwartiertje 
volgt. Een kwartier pauze maakt het uur vol en stelt de bezoeker 
in staat om even naar de beurs te lopen of tussendoor iets 
anders te doen. Op deze wijze kunnen alle voordrachten worden 
gevolgd, een selectie of zelfs slechts een. 

Voor de bezoekers zijn voorzieningen aanwezig om de inwendige 
mens te versterken, naast uiteraard de garderobe, die niet 
ontbreekt. Een gedeelte is gereserveerd, de foyer op de eerste 
verdieping, om even rustig bij te komen of om even van gedachten 
te wisselen. 

De standhouders zijn vanwege deze voorpublikatie nog niet alle¬ 
maal bekend, maar het zal ongetwijfeld —gezien de bedrijven die 
zich reeds hebben a.angemeld - de moeite waard zijn om een vrije 
dag te besteden aan de hobby die MSX heet. 

PARKEERVOORZIENINGEN 

't Spant is gemakkelijk te bereiken met de trein en/of bus. Met 
de trein moet u uitstappen op het station Bussum/Zuid. Bezoekers 
die met de auto komen, zullen voldoende parkeergelegenheid vin¬ 
den in en om 't Spant. De parkeerhavens, die het gebouw omslui¬ 
ten, kunnen volledig worden benut. 

VERDERE INLICHTINGEN: 

DE MSX-ER, 

BATTERIJLAAN 39, 

1402 SM BUSSUM. 

TEL. 02159-36293. 
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Listing controle programma 2 


DEZE LISTING TESTER IS VAN TOEPASSING OP 
DE LISTINGS VANAF MSX GIDS NR.3 

DE LISTINGS UIT GIDS 1 EN 2 NIET MET DEZE 
TESTER CONTROLEREN! 

? e , Listing tester is bedoeld als 
hulpmiddel voor de lezers, die de 
programma listings uit ons blad overnemen. 
Met dit programma publiceren wij een 
kontrole-telling van de programmaregels 
en, wanneer u een programma heeft 
overgenomen, kunt u dan —ook weer met 
ditzelfde programma- een kontrole-telling 
uitvoeren. Zijn de getallen achter de 
regel hetzelfde, dan is de kans erg groot, 
dat het programma goed is overgenomen. 
Zeker is dit echter niet, want wanneer 
bijvoorbeeld twee letters in een regel 
worden omgewisseld, dan is de telling toch 
goed. 

MSX-BASIC kent twee statements voor regels 
die alleen kommentaar bevatten: namelijk 
het REM-statement en regels die beginnen 
m st . Beide regels hebben over het 
algemeen geen invloed op de werking van 
het programma en daarom wordt de tekst van 
deze regels niet meegeteld. Wanneer de REM 
regels wel belangrijk zijn (b.v. bij 
machinetaal routines, die tijdens de loop 
van het programma op deze regels worden 
geplaatst) dan wordt dit uitdrukkelijk 
vermeld. 

. tester heeft hoge regelnummers, zodat 
hij aan het eind van de meeste programmals 
geplaatst kan worden. U toetst dit 
programma in en kontroleert het met 
zichzelf door regelnummer 65170 te laten 
vervallen. 

Is het programma goed, dan moet dit met de 
opdracht SAVE "CAS:TESTER" op cassette 
worden gezet. (Wel eerst regel 65170 weer 
opnemen!!). 

Het programma wordt dan als ASCII-file op 
de band gezet. 

Niet wegschrijven met "CSAVE”!! 

U gebruikt verder dit programma als volgt: 

U tikt het programma, dat u wilt hebben in 
en zet dit eerst op cassette. Niet eerst 
RUNen, want bij sommige fouten kan een 
programma blijven 'hangen' en vaak moet 
dan alles opnieuw worden ingevoerd! Daarna 
kan met MERGE "CAS:TESTER” het kontrole 
programma achter het ingetoetste programma 
worden gezet, waarna met RUN 65000 het 
kontroleren kan beginnen. Er is een keuze 
tussen de uitvoer naar een printer en naar 
het beeldscherm. In principe zal de 
printer worden gebruikt, maar bij kleine 
programma's, of voor het geval dat er nog 
slechts enkele regels nagekeken hoeven te 
worden, kan het ook via het beeldscherm. 

Voor het laden van het testprogramma moet 
de instruktie 'MERGE' worden gebruikt en 
niet L0AD ! (Dus MERGE "CAS:TESTER"). Bij 
gebruik van L0AD komt de Listing tester 
namelijk in plaats van het reeds in het 
geheugen aanwezige programma te staan en 
dan valt er niets meer te testen. 


Let goed op bij DATA- regels. Wanneer hier 
getallen omgewisseld worden, zal de tester 
toch een goede telling geven! Bij het 
omwisselen van letters in BASIC- 
instrukties wordt wel een fout 
geconstateerd. 

Een controle telling wordt alleen bij 
grote -of ingewikkelde- programma's 
geplaatst. 

Beeldschermi WIDTH 37 


i*********************** 

* LISTING TESTER 2 * 

* Door Alfred Debels * 

* (0 1986 De MSX Gids * 

* Amsterdam * 

*********************** 


65000 * 

65010 ’ 

65020 • 

65030 * 

65040 ’ 

65050 ’ 

65060 * 

65070 CLSsCLEAR:SCREEN 0:WIDTH 40:PRI 
NT 

65080 PRINT "Weergave via beeldscherm 
of printer?" 

65090 PRINT :PRINT "B of P?: " 

65100 X$=INKEY$:IF X$<>"B" AND X$<>"P 
" THEN 65100 
65110 START=32769! 

65120 RG=START+2: T=0 

65140 VR=PEEK(START)+256*PEEK(START+1 

65150 NR=PEEK(R6)+256*PEEK(RG+1) 

65160 IF VR=0 THEN 65290 
65170 IF NR>=65000! THEN 65290 
65180 S=0:FOR I=RG+2 TÜ VR-1 
65190 A=PEEK(I) 

65210 IF A=143 THEN I=VR:G0T0 65240 
65230 S= S+A:NEXT 
65240 S=SM0D256 
65250 T=T+S 

65260 IF X$="B” THEN PRINT USING "Reg 
el:##### - ###" j| NR, S: GOTO 652B0 
65270 LPRINT USÏNG "Regel:##### - ### 
";NR,S 

65280 START=VR: RG=VR+2:G0T0 65140 
65290 IF X*="P" THEN 65310 
65300 PRINT:PRINT "Totaal: ":T: END 
65310 LPRINT "Totaal: " S T: END 


Regel:65000 

- 58 

Regel:65260 - 

167 

Regel 

65010 

58 

Regel:65270 - 

13 

Regel 

65020 

- 58 

Regel:65280 - 

136 

Regel 

65030 

- 58 

Regel:65290 - 

239 

Regel 

65040 

- 5B 

Regel:65300 - 

233 

Regel 

65050 

- 58 

Regel:65310 - 

42 

Regel 

65060 

- 58 

Totaal: 3275 


Regel 

65070 

- 151 



Regel 

65080 

— 129 



Regel 

65090 

- 32 



Regel 

65100 

— 5 



Regel 

65110 

- 23 



Regel 

65120 

- 200 



Regel 

65140 

- 133 



Regel 

65150 

- 147 



Regel 

65160 

- 132 



Regel 

65180 

- 201 



Regel 

65190 

- 96 



Regel 

65210 

- 234 



Regel 

65230 

- 164 



Regel 

65240 

- 173 



Regel 

65250 

- 219 
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de mini gids 

In deze rubriek kunnen onze lezers advertenties plaatsen, 
mits niet van commerciële aard ! Handelaren kunnen onze 
advertentietarieven aanvragen. 

De redaktie behoudt zich het recht voor advertenties voor 
deze rubriek te weigeren. Inzendingen kunnen gestuurd wor¬ 
den naar Postbus 10252, 1001 EG Amsterdam en dienen 
voorzien te zijn van naam, adres en evt. telefoonnummer. 
Advertenties met alleen postbusnummer of antwoordnummer 
worden niet opgenomen. 


GEZOCHT: 

Een vertaalprogramma van Commodore 64 naar 
MSX-1. Jan Elso Ploeg, Valkenier 3, 3161 
LV RHOON. Tel: 01890-14370 


GEEN GOEDE GEBRUIKERSGROEP IN DE BUURT??? 
Bel 04241-3490. Wil van Aarle, 
de Armhoef 33, 5071 VW Udenhout. 

MSX-GG UDENHOUT 

GEZOCHT: NEDERLANDSE handleiding (of 

kopie) voor de GEN assembler van HISOFT. 
Onkosten worden vergoed. WIE HELPT MIJ? 
Piessens Jan, Callaertstraat 16, 

2660 Willebroek, Belgie. 


MSX GEBRUIKERSGROEPEN 


GEVRAAGD: 

Software om te ruilen evt. tegen dito. 
Stuur je lijst naar Enrico v. Sliedrecht, 
Westdijk 43, 3245 BM Sommelsdijk. Of bel 
01870-505.1 

GEZOCHT: 

MSX-1 gebruikers, woonachtig in de buurt 
van Leiden, die spelletjes willen ruilen 
of uitwisselen. Tel: 071-896641 

GEZOCHT: BOEKEN 

MSX-ers om software mee te ruilen. Tel: 
08350-28454 

TE KOOP: 

Daisywheel printer C-Itoh F10-40. Zware 
kantoorprinter (Qume / Diablo compatible) 
brede wagen met bi-directionele tractor- 
feed. Centronics parallel interface. Incl. 
div. letterwieltjes en documentatie. 

Spotkoopje: 1750,= maar. de printer 

is binnenkort wel aan een onderhoudsbeurt 
toe. Een mooie kans voor een handige doe- 
het- zelver! 

Tevens: ZENITH monitor ZVM1230/20 (amber) 
12 Inch. 18 MHz. 375,= 

Inl. 020-327464 


HCC MSX gg 
Postbus 51 
2630 AA Nootdorp 


MSX gg. West-Brabant 
Pijnboomstraat 10 
4731 AT Oudenbosch 


"De Leke" 
p/a Fred De Winne 
Lekestraat 33 
9900 Eeklo Belgie 


MSX-club Belgie-Nederland 
p/a Mottaart 20 
3170 Herselt Belgie 

MSX-CLUB-FLEVO 
Schouw 53-45 
8232 XJ Lelystad 


YAMAHA CX5 gebruikersgroep 
p/a Coen van Splunder 
Diepenbroek 87 
5991 PT Baarlo 
Tel. 04707-3348 


MSX GEBRUIKERSGROEP UDENHOUT EN OMSTREKEN 

p/a Wil van Aarle 

Armhoef 33 

5071 VW Udenhout 

MGU MSX gebruikersgroep Uden 
Inl. Carlo van Hout. 

Tel: 08859-52950 



Abonnement 

Een abonnement is voordeliger 

en je mist geen nummers! 


EEN ABONNEMENT KOST FL. 40,= PER 6 NUMMERS EN IS TE 
DOOR OVERMAKING VAN DIT BEDRAG OP GIRO 5036011 T.N.V. 
AMSTERDAM. 


VERKRIJGEN 
J.HERPS TE 


VOOR BELGIE: BFR. 750 OP BANKREKENINGNUMMER 235-0430464-87 BIJ 
DE GENERALE BANKMAATSCHAPPIJ TE HASSELT T.N.V. J.HERPS, 
AMSTERDAM. 


Girobetaalkaarten of Eurocheques (vergeet niet het nummer op de 
achterzijde in te vullen) kunnen gestuurd worden naar: 

Uitgeverij HERPS, Postbus 10252, 1001 EG Amsterdam. 

Tel. inlichtingen over abonnementen en losse nummers: 020-327464 
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Wat maakt 'n modem 
'n MSX-topmodem? 


HET BEDIENINGSGEMAK 


De TELSTRON 1200/MSX is direct 
aansluitbaar op alle MSX-computers. Geen 
gezeur met kabels en connectoren, gewoon de stekker in 
de uitbreidingsleuf van de computer en klaar. 

DE VEELZIJDIGE SOFTWARE 

De TELSTRON 1200/MSX wordt geleverd met een 
geavanceerd communicatieprogramma. U kunt meteen aan 
de slag. De nieuwe versie 2.3 wordt GRATIS 
meegeleverd. Dit VIEWDATA- EN TERMINAL- 
PROGRAMMA maakt optimaal gebruik van de 
mogelijkheden van het modem. Bijvoorbeeld: 

• in de VIDITEL -mode: 

• auto dial/rediai 

• auto login/logon 

• complete VIDITEL editor 

• local mode (de systeemcommando's zijn beschikbaar) 

• beeldopslag (op diskette en cassette) 

• zwart/wit-kleur schakelaar 

• uitgebreide afdmkmogelijkheden 

• VIDITEL host-functie: 

maak uw eigen VIDITEL-databank met meer dan 300 
pagina's per diskette 


niet zo maa 


De TELSTRON 1200/MSX is een produkt van 
DCS/TRON. 

U vindt de TELSTRON 1200/MSX bij V&D, 
DIXONS, WEHKAMP en alle grote computershops. 

Voor informatie, bel 085-340 640 



• In de TERMINAL -mode 
• auto dial/redial 
• auto login/logon 
auto answer 

• auto baudrate select 

• files up- en downloading van en naar MSX, Commodore 
en andere computers 

• de mogelijkheid om de gastcomputer te besturen 

• terminal host-functie: 

maak uw eigen 300 of 75/1200 baud full duplex databank, 
inclusief up- en downloading van files, automatische 
modem instelling (bij het versturen van een file schakelt 
het modem automatisch van 300 naar 1200 baud) 

DE INFORMATIEDIENSTEN 

U weidt gratis lid van twee databanken, waarop u onder 
andere nieuwe versies van de TELS TRON/MSX software 
vindt. De upgrades zijn gratis. 

En u krijgt toegang tot meer dan 80 TELSTRON 
compatibele databases in Nederland. 


EN DE TELSTRON 1200/MSX ZELF. 

• PTT goedgekeurd 1986 

• 300, 600, 75/1200, 1200/75 baud 

• visuele functie-indicatie van alle modemfuncties 

• fraaie vormgeving 

• 3 maanden garantie 


TEL®TRON! 1200/MSX 


modem 



Ulrechtscweg 117 
6862 AG Oosterbeek 
Tel. 085-340 640 


























MSX ”SOïTPOST 
Van Kinsbergenstraat 62 
1057 FT Amsterdam. 

Tel 020 - 183001 

Bestel telefonisch en u heeft 
heel snel het door u gewenste 
programma in huis. 

(ma-vrij van 10.00 - 14.00 uur) 


TASWORD MSX engels tape 
MSX HUISHOUDBOEKJE 
MT-DISPLAY lichtkrant 
PSG musiwriter cartridge 
BASIC CURSUS MSX 
MSX MUZIEKNOTEN-CURSUS 
TYPE CURSUS MSX 
STAR SEEKER 

SLAGEN VOOR HET RIJEXAMEN 
LETTERSET MSX maak letters 
MSX SOUNDMAKER 
MSX ZOOM/SPRITE EDITOR 
MUE Music Editor cartridge 
KUMA SPREADSHEET (disk 159,--) 
EDDY II tekenprogramma 
MSX CALC cartridge 
nederlandstalig spreadsheet. 

MSX TEXT CARTRIDGE 
tekstverwerker en database voor 
MSX-1 en MSX-2 in het nederlands 
met nederlandse handleiding 
met opslag op cassette of disk. 

6 COMPUTER HITS 
JACK THE NIPPER 
ICE KING 
BOUNDER 

MACADAM BUMPER pinball constr. 
VALKYR 

HYPERRALLEY cartridge 

CASTLE BLACKSTAR 

LAZY JONES 

LE MANS autorace 

ATTACK O/T KILLER TOMATOES 

KNIGHT TYME 

THE PRICE OF MAGIC 


t 65,00 
t 24,50 
c 199,00 
c 129,00 
t 29,50 
t 19,50 
t 19,50 
t 45,00 
t 59,00 
t 19,50 
t 19,50 
t 19,50 
95,00 
t 135,00 
C 76,00 

225,00 

195,00 


t 35,00 
t 39,00 
t 32,00 
t 39,00 
t 45,00 
t 39,00 
c 69,00 
t 32,00 
t 45,00 
t 45,00 
t 39,00 
t 15,00 
t 45,00 


MOLECULE MAN 
TURMOIL 

JOURNEY T/T CENTRE OF EARTH 
SCRABBLE 

ROAD FIGHTER cartridge 
MONOPOLY 

SPACEWALK, FINDERS KEEPERS 
EN CHILLER 
ZOIDS 

KNIGHTMARE (Konami) 

KONAMI BILLJARD 

NIGHTSHADE 

CLUEDO 

HISOFT PASCAL COMPILER tape 
Hl SOFT DEVPAC tape 
HISOFT C++disk 3.5” ' 

HISOFT PASCAL disk 3.5” 

HISOFT DEVPAC disk 3.5” 

ZEN ASSEMBLER disk 3.5” 

LOGO 

KUMA FORTH 
MT-DEBUG cartridge 
737 FLIGHT SIMULATOR 
DUNKSHOT basketbal cartr. 
GROG’S REVENGE 
DECATHLON 
FORMULA 1 SIMULATOR 
SPEED KING motor race 
HYPERSPORTS 3 cartridge 
KNOCKOUT 3d 

SAMANTHA FOX STRIPPOKER 
KONAMI SOCCER 
WAY OF THE TIGER 
YIE AR KUNG FU II 
BATTLE FOR MIDWAY 


t 12,00 
t 15,00 
t 15,00 
t 45,00 
c 69,00 
t 45,00 

t 30,00 
t 39,00 
c 69,00 
c 69,00 
t 45,00 
t 45,00 
t 135,00 
89,00 
d 185,00 
185,00 
185,00 
185,00 
t 95,00 
t 185,00 
C 149,00 
t 49,00 
c 79,00 
t 45,00 
t 59,00 
t 10,00 
t 12,00 
c 69,00 
t 39,00 
t 39,00 
t 69,00 
t 39,00 
t 69,00 
t 45,00 


BESTELBON 


TITELS 


PRIJS 


□ VOORUIT PER GIRQ:4526682 GEEN PORTO f 

□ EURO/BETAALCHÈQUE GEEN PORTO 

\I\ REMBOURS: ƒ 9,50 PORTO . f 

Ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

NAAM : ..:. f 


ADRES 


POSTCODE 

WOONPLAATS 


TOTAAL 


TELEFOON 


PORTO 

TOTAAL TE VOLDOEN 


f 























